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

Cleanup from previous changes, added missing args

Browse source
This commit is contained in:
Justin Ethier 2018-01-15 12:53:16 -05:00
parent 910662135b
commit 12d16dfbbe
1 changed files with 20 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
scheme/eval.sld
View file

@ -1103,12 +1103,18 @@
(quote? this-exp)
(define-c? this-exp))
;(log this-exp)
(_expand-body (cons this-exp result) (cdr exp) env rename-env local-env local-renamed))
(_expand-body
(cons this-exp result)
(cdr exp)
env
rename-env
local-env
local-renamed))
((define? this-exp)
;(log this-exp)
(_expand-body
(cons
(_expand this-exp env rename-env local-env)
(_expand this-exp env rename-env local-env local-renamed)
result)
(cdr exp)
env
@ -1128,7 +1134,8 @@
(cdr exp)
env
rename-env
local-env local-renamed))
local-env
local-renamed))
;; Splice in begin contents and keep expanding body
((begin? this-exp)
(let* ((expr this-exp)
@ -1139,7 +1146,8 @@
(append begin-exprs (cdr exp))
env
rename-env
local-env local-renamed)))
local-env
local-renamed)))
((app? this-exp)
(cond
((symbol? (caar exp))
@ -1161,30 +1169,33 @@
(cdr exp))
env
rename-env
local-env local-renamed))
local-env
local-renamed))
;; No macro, use main expand function to process
(_expand-body
(cons
(map
(lambda (expr) (_expand expr env rename-env local-env))
(lambda (expr) (_expand expr env rename-env local-env local-renamed))
this-exp)
result)
(cdr exp)
env
rename-env
local-env local-renamed))))
local-env
local-renamed))))
(else
;(log 'app)
(_expand-body
(cons
(map
(lambda (expr) (_expand expr env rename-env local-env))
(lambda (expr) (_expand expr env rename-env local-env local-renamed))
this-exp)
result)
(cdr exp)
env
rename-env
local-env local-renamed))))
local-env
local-renamed))))
(else
(error "unknown exp: " this-exp))))))