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

WIP

Browse source
This commit is contained in:
Justin Ethier 2015-08-05 01:57:58 -04:00
parent c99948f071
commit 7b766b2721
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
TODO
View file

@ -5,6 +5,11 @@ Roadmap:
Working TODO list. should start creating issues for these to get them out of here: Working TODO list. should start creating issues for these to get them out of here:
- need to speed up the compilation cycle
switch to using shared libraries instead of static ones
move macro code to that module
if necessary, write makefile directive to automate rebuilding cyclone for macro development
- macros - macros
can start by adding define-syntax? section to transforms.scm. can start by adding define-syntax? section to transforms.scm.
need to think about how macros from sld's will end up being need to think about how macros from sld's will end up being

7
scheme/cyclone/transforms.scm
View file

@ -913,7 +913,12 @@
;; if found. would then want to continue expanding. may need to ;; if found. would then want to continue expanding. may need to
;; return some value such as #t or nil as a placeholder, since the ;; return some value such as #t or nil as a placeholder, since the
;; define-syntax form would not be carried forward in the compiled code ;; define-syntax form would not be carried forward in the compiled code
;; ((define-syntax? exp) ...) ((define-syntax? exp)
(let* ((name (cadr exp))
(trans (caddr exp))
(body (cadr trans)))
(set! *defined-macros* (cons (cons name body) *defined-macros*))
#t))
((macro? exp) ((macro? exp)
(expand ;; Could expand into another macro (expand ;; Could expand into another macro
(macro-expand exp))) (macro-expand exp)))