Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2015-08-15 02:08:37 -04:00
parent 0dac7583ba
commit cc27e2b355
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/macros.sld
View file

@ -28,6 +28,12 @@
(define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros)) (define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros))
(define (macro:expand exp defined-macros) (define (macro:expand exp defined-macros)
(let ((macro (assoc (car exp) defined-macros))) (let ((macro (assoc (car exp) defined-macros)))
TODO: restructure this to use eval if the macro is not a proc.
then can try passing in an environment with create-environment.
once eval is extended to work with macros, this could allow it to
expand a macro contained within another
;; assumes ER macro ;; assumes ER macro
(if macro (if macro
((cdr macro) ((cdr macro)