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

lambda* usage in psyntax.scm

Browse source 
* module/ice-9/psyntax.scm (macroexpand): Use lambda*.
* module/ice-9/psyntax-pp.scm: Regenerated.
This commit is contained in:
Andy Wingo 2010-05-20 13:28:25 +02:00
parent cc63545b3e
commit 82c45730af
2 changed files with 1515 additions and 1528 deletions
Download patch file Download diff file Expand all files Collapse all files

3031
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff

12
module/ice-9/psyntax.scm
View file

@ -2364,14 +2364,10 @@
;;; expanded, and the expanded definitions are also residualized into
;;; the object file if we are compiling a file.
(set! macroexpand
(lambda (x . rest)
(let ((m (if (null? rest) 'e (car rest)))
(esew (if (or (null? rest) (null? (cdr rest)))
'(eval)
(cadr rest)))
(mod (cons 'hygiene (module-name (current-module)))))
(chi-top x null-env top-wrap m esew mod))))
(lambda* (x #:optional (m 'e) (esew '(eval)))
(chi-top x null-env top-wrap m esew
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
(lambda (x)
(nonsymbol-id? x)))