Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-06 20:56:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2015-08-28 23:52:12 -04:00
parent bd98b3f661
commit 5441714fbd
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/macros.sld
View file

@ -41,6 +41,8 @@
(tagged-list? 'define-syntax exp)) (tagged-list? 'define-syntax exp))
(define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros)) (define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros))
TODO: seems to be a problem with below. may want to revert and try and see if that works, then
restore this and debug...
(define (macro:expand macro-val exp mac-env) (define (macro:expand macro-val exp mac-env)
(let* ( ;(macro (assoc (car exp) defined-macros)) (let* ( ;(macro (assoc (car exp) defined-macros))
(compiled-macro? (or (macro? (Cyc-get-cvar macro-val)) (compiled-macro? (or (macro? (Cyc-get-cvar macro-val))