(lambda*): Make sure that BODY is always put into a

real body context so that it can contain internal definitions.
Thanks to Matthias Köppe!

diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm
index 2ee0411..fd4db65 100644 (file)
--- a/ice-9/optargs.scm
+++ b/ice-9/optargs.scm
@@ -294,7 +294,8 @@
                                    `((if (not (null? ,rest-gensym))
                                          (error "Too many arguments.")))
                                    '())
-                             ,@BODY)))
+                             (let ()
+                               ,@BODY))))
           `(lambda (,@non-optional-args . ,(if rest-arg rest-arg '()))
              ,@BODY))))))