From 761cef4efb74984209c5ee959074b5ccbdddba86 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Mon, 9 Dec 2013 09:44:11 -0800 Subject: [PATCH] do not use let syntax in the definition of ir-macro-transformer --- piclib/built-in.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index 9232ac03..1c256f8a 100644 --- a/piclib/built-in.scm +++ b/piclib/built-in.scm @@ -592,8 +592,9 @@ (make-syntactic-closure use-env '() identifier)) (define (compare x y) (identifier=? mac-env x mac-env y)) - (let ((expr (walk (lambda (x) (if (symbol? x) (inject x) x)) expr))) - (make-syntactic-closure mac-env '() (f expr inject compare))))) + (define renamed + (walk (lambda (x) (if (symbol? x) (inject x) x)) expr)) + (make-syntactic-closure mac-env '() (f renamed inject compare)))) (define-syntax define-auxiliary-syntax (ir-macro-transformer