mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

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

Browse source 
real body context so that it can contain internal definitions.
Thanks to Matthias Köppe!
This commit is contained in:
Marius Vollmer 2001-06-09 18:14:22 +00:00
parent 269ce4390e
commit 1987c8ee57
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/optargs.scm
View file

@ -294,7 +294,8 @@
`((if (not (null? ,rest-gensym)) `((if (not (null? ,rest-gensym))
(error "Too many arguments."))) (error "Too many arguments.")))
'()) '())
,@BODY))) (let ()
,@BODY))))
`(lambda (,@non-optional-args . ,(if rest-arg rest-arg '())) `(lambda (,@non-optional-args . ,(if rest-arg rest-arg '()))
,@BODY)))))) ,@BODY))))))