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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-02-01 23:01:25 -05:00
parent 745238c639
commit 5b557f889d
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
macro-test.scm
View file

@ -53,6 +53,21 @@
(append result (reverse expanded-exprs))
(cdr exp)
env)))
;; TODO: test concept of expanding/splicing begin here
((and (app? (car exp))
(symbol? (caar exp))
(tagged-list? 'macro (env:lookup (caar exp) env #f)))
(let ((expanded (macro:expand (car exp) (env:lookup (caar exp) env #f) env)))
(write `(DEBUG ,(cons expanded (cdr exp))))
;; TODO: not enough to recursively call expand-body with commented-out code.
;; maybe the thing that was missing is that still need to call inner-expand to
;; expand macros within????
(expand-body
(cons
(inner-expand expanded env)
result) ;; TODO: result?
(cdr exp) ;(cons expanded (cdr exp))
env)))
(else
(expand-body
(cons