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

Fixes for renaming local bindings

Browse source 
Still need to associate them with a macro
This commit is contained in:
Justin Ethier 2018-01-16 19:46:16 -05:00
parent 435fefe6d0
commit 144c5845fc
1 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
scheme/eval.sld
View file

@ -917,11 +917,11 @@
(map cdr a-lookup)
ltype))
)
(newline)
(display "/* ")
(display (list 'expand a-lookup))
(newline)
(display "*/ ")
;; (newline)
;; (display "/* ")
;; (display (list 'expand a-lookup))
;; (newline)
;; (display "*/ ")
`(lambda ,new-formals ;,(lambda->formals exp)
,@(_expand-body
'()
@ -1120,7 +1120,6 @@
(cond
((or (const? this-exp)
(prim? this-exp)
(ref? this-exp)
(quote? this-exp)
(define-c? this-exp))
;(log this-exp)
@ -1131,6 +1130,18 @@
rename-env
local-env
local-renamed))
((ref? this-exp)
(let* ((renamed (assoc this-exp local-renamed))
(sym (if renamed
(cdr renamed) ;; Extract renamed symbol
this-exp)))
(_expand-body
(cons sym result)
(cdr exp)
env
rename-env
local-env
local-renamed)))
((define? this-exp)
;(log this-exp)
(_expand-body