From 821e2cf368d80847a6d1f85373840b85ffe3b80a Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 24 Feb 2018 11:16:55 +0100 Subject: [PATCH 1/2] Do not strip syntax when handling let-syntax This is not necessary and may (may!) break things. It's asking for trouble, though I haven't managed to build a test case where this makes a difference yet. --- core.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/core.scm b/core.scm index f5dfd650..f9014c4b 100644 --- a/core.scm +++ b/core.scm @@ -819,7 +819,7 @@ se (##sys#ensure-transformer (##sys#eval/meta (cadr b)) - (strip-syntax (car b))))) + (car b)))) (cadr x) ) se) ) (ln (or (get-line x) outer-ln))) @@ -835,7 +835,7 @@ #f (##sys#ensure-transformer (##sys#eval/meta (cadr b)) - (strip-syntax (car b))))) + (car b)))) (cadr x) ) ) (se2 (append ms se)) (ln (or (get-line x) outer-ln)) ) @@ -889,7 +889,7 @@ (##sys#cons (##sys#ensure-transformer (##sys#eval/meta body) - (strip-syntax var)) + var) (##sys#current-environment)))) (walk (if ##sys#enable-runtime-macros @@ -916,7 +916,7 @@ (and (pair? (cdr b)) (cons (##sys#ensure-transformer (##sys#eval/meta (cadr b)) - (strip-syntax (car b))) + (car b)) se)) (##sys#get name '##compiler#compiler-syntax) ) ) ) (cadr x))) -- 2.11.0