conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

do not use let syntax in the definition of ir-macro-transformer

This commit is contained in:
Yuichi Nishiwaki 2013-12-09 09:44:11 -08:00
parent 51657e9412
commit 761cef4efb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
piclib/built-in.scm
View File

@ -592,8 +592,9 @@
(make-syntactic-closure use-env '() identifier)) (make-syntactic-closure use-env '() identifier))
(define (compare x y) (define (compare x y)
(identifier=? mac-env x mac-env y)) (identifier=? mac-env x mac-env y))
(let ((expr (walk (lambda (x) (if (symbol? x) (inject x) x)) expr))) (define renamed
(make-syntactic-closure mac-env '() (f expr inject compare))))) (walk (lambda (x) (if (symbol? x) (inject x) x)) expr))
(make-syntactic-closure mac-env '() (f renamed inject compare))))
(define-syntax define-auxiliary-syntax (define-syntax define-auxiliary-syntax
(ir-macro-transformer (ir-macro-transformer