guile/guile-core/ice-9 optargs.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/09 11:14:22

Modified files:
        guile-core/ice-9: optargs.scm 

Log message:
        (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!

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/optargs.scm.diff?cvsroot=OldCVS&tr1=1.13&tr2=1.14&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/optargs.scm
diff -u guile/guile-core/ice-9/optargs.scm:1.13 
guile/guile-core/ice-9/optargs.scm:1.14
--- guile/guile-core/ice-9/optargs.scm:1.13     Sun Jun  3 16:29:45 2001
+++ guile/guile-core/ice-9/optargs.scm  Sat Jun  9 11:14:22 2001
@@ -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))))))