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

WIP

Browse source
This commit is contained in:
Justin Ethier 2019-08-05 18:39:44 -04:00
parent ec25eddc28
commit 2d398573a5
1 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scheme/eval.sld
View file

@ -614,6 +614,17 @@
rename-env rename-env
local-renamed)))))) local-renamed))))))
(cond (cond
; ;; special case
; ((eq? 'begin op)
;(newline)
;(display "/* ")
;(write (list 'begin exp))
;(display "*/ ")
; (let ((fncs (map (lambda (expr)
; (pre-analyze-application expr a-env rename-env local-renamed))
; (cdr exp))))
; (lambda (env)
; (foldl (lambda (fnc _) (fnc env)) #f fncs))))
;; compiled macro ;; compiled macro
((Cyc-macro? var) ((Cyc-macro? var)
(expand var)) (expand var))
@ -797,7 +808,7 @@
(result #f)) (result #f))
; (newline) ; (newline)
; (display "/* ") ; (display "/* ")
;(display (list 'macro:expand exp macro compiled-macro? local-renamed)) ; (write (list 'macro:expand exp macro compiled-macro? local-renamed))
; (display "*/ ") ; (display "*/ ")
;; Invoke ER macro ;; Invoke ER macro
@ -820,9 +831,9 @@
mac-env)))) mac-env))))
; (newline) ; (newline)
; (display "/* ") ; (display "/* ")
; (display (list 'macro:expand exp macro compiled-macro?)) ; (write (list 'macro:expand exp macro compiled-macro?))
; (newline) ; (newline)
; (display (list result)) ; (write (list result))
; (display "*/ ") ; (display "*/ ")
(macro:add-renamed-vars! use-env rename-env) (macro:add-renamed-vars! use-env rename-env)
result)) result))