[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 optargs.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 optargs.scm |
Date: |
Sat, 09 Jun 2001 11:14:22 -0700 |
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))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/ice-9 optargs.scm,
Marius Vollmer <=