dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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