mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

(lambda*): Record the broken-down argument list in

Browse source 
the `arglist' procedure property.
This commit is contained in:
Thien-Thi Nguyen 2001-09-09 01:15:53 +00:00
parent dac572954a
commit 8d41ec9d0f
1 changed files with 30 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

15
ice-9/optargs.scm
View file

@ -275,9 +275,11 @@
(if (not (or (symbol? rest-arg) (eq? #f rest-arg)))
(error "Syntax error in rest argument declaration."))
;; generate the code.
(let ((rest-gensym (or rest-arg (gensym "lambda*:G"))))
(let ((rest-gensym (or rest-arg (gensym "lambda*:G")))
(lambda-gensym (gensym "lambda*:L")))
(if (not (and (null? optionals) (null? keys)))
`(lambda (,@non-optional-args . ,rest-gensym)
`(let ((,lambda-gensym
(lambda (,@non-optional-args . ,rest-gensym)
;; Make sure that if the proc had a docstring, we put it
;; here where it will be visible.
,@(if (and (not (null? BODY))
@ -295,7 +297,14 @@
(error "Too many arguments.")))
'())
(let ()
,@BODY))))
,@BODY))))))
(set-procedure-property! ,lambda-gensym 'arglist
'(,non-optional-args
,optionals
,keys
,aok?
,rest-arg))
,lambda-gensym)
`(lambda (,@non-optional-args . ,(if rest-arg rest-arg '()))
,@BODY))))))