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

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2015-08-12 22:19:29 -04:00
parent edd6bf81da
commit 49f1d4b604
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/eval.sld
View file

@ -383,8 +383,10 @@
((if? exp) (analyze-if exp)) ((if? exp) (analyze-if exp))
((lambda? exp) (analyze-lambda exp)) ((lambda? exp) (analyze-lambda exp))
;; Expand macros ;; Expand macros
;; TODO: does not work below because car is a symbol ('or) and
;; not the actual macro. so how to look it up???
((and (pair? exp) (macro? (car exp))) ((and (pair? exp) (macro? (car exp)))
(write (list 'debug 'macro exp)) ;(write (list 'debug 'macro exp))
(analyze (apply (car exp) (cdr exp)))) (analyze (apply (car exp) (cdr exp))))
;; TODO: ideally, macro system would handle these next three ;; TODO: ideally, macro system would handle these next three
((tagged-list? 'let exp) ((tagged-list? 'let exp)