From d7bd650cfd66231239fd90fa3de06c07e9de26f8 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 21 Sep 2016 02:12:23 -0400 Subject: [PATCH] Fix how lambda vars are added to bound var list --- scheme/cyclone/macros.sld | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/scheme/cyclone/macros.sld b/scheme/cyclone/macros.sld index a6244db7..ce2d59a4 100644 --- a/scheme/cyclone/macros.sld +++ b/scheme/cyclone/macros.sld @@ -102,7 +102,9 @@ (define (macro:cleanup expr) (define (clean expr bv) ;; Bound variables (newline) -(display "/* macro:cleanup->clean\n ") +(display "/* macro:cleanup->clean, bv =") +(write bv) +(newline) (write expr) (newline) (display "*/ ") @@ -128,8 +130,9 @@ ((lambda? expr) `(lambda ,(lambda->formals expr) ,@(map (lambda (e) - (clean e (cons (lambda-formals->list expr) - bv))) + (clean e (append + (lambda-formals->list expr) + bv))) (lambda->exp expr)))) ;; At this point defines cannot be in lambda form. ;; EG: (define (f x) ...)