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

WIP - first attempt to clean eval macro's

Browse source 
This seemed promising but fails when compiling cyclone:

    cyclone -A . srfi/106.sld
    Error at line 376, column 5 of srfi/106.sld: Unbound variable:
    unquote
This commit is contained in:
Justin Ethier 2021-07-27 16:39:13 -04:00
parent 8de54a2fce
commit 5911336d16
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scheme/eval.sld
View file

@ -614,16 +614,18 @@
;(define use-env (env:extend-environment '() '() '()))
(if (Cyc-macro? macro-op)
;; Compiled macro, call directly
(let ((expanded
(macro:expand exp (list 'macro macro-op) a-env rename-env local-renamed)))
(analyze expanded
(let* ((expanded
(macro:expand exp (list 'macro macro-op) a-env rename-env local-renamed))
(cleaned (macro:cleanup expanded rename-env)))
(analyze cleaned
a-env
rename-env
local-renamed))
;; Interpreted macro, build expression and eval
(let* ((expanded (macro:expand exp (list 'macro macro-op) a-env rename-env local-renamed)))
(let* ((expanded (macro:expand exp (list 'macro macro-op) a-env rename-env local-renamed))
(cleaned (macro:cleanup expanded rename-env)))
(analyze
expanded
cleaned
a-env
rename-env
local-renamed))))))
@ -917,6 +919,10 @@
;(newline)
;(display "*/ ")
(cond
((and (pair? expr) ;; Improper list
(not (list? expr)))
(cons (clean (car expr) bv)
(clean (cdr expr) bv)))
((const? expr) expr)
((null? expr) expr)
((quote? expr)