Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix how lambda vars are added to bound var list

Browse source
This commit is contained in:
Justin Ethier 2016-09-21 02:12:23 -04:00
parent e49efe4394
commit d7bd650cfd
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/macros.sld
View file

@ -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) ...)