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

Added a debug version of the letrec-syntax macro

Browse source
This commit is contained in:
Justin Ethier 2017-12-11 19:07:05 -05:00
parent d2e6139e5b
commit 9ebd079c8b
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tests/let-syntax.scm
View file

@ -1,5 +1,18 @@
(import (scheme base) (scheme write) (scheme cyclone pretty-print)) (import (scheme base) (scheme write) (scheme cyclone pretty-print))
(let-syntax
((my-or (syntax-rules ()
((my-or) #f)
((my-or e) e)
((my-or e1 e2 ...)
(let ((temp e1)) (if temp temp (my-or e2 ...)))))))
(let ((x #f)
(y 7)
(temp 8)
(my-let odd?)
(my-if even?))
(my-or x (my-let temp) (my-if y) y))) ;; ==> 7
#;(letrec-syntax #;(letrec-syntax
((my-or (syntax-rules () ((my-or (syntax-rules ()
((my-or) #f) ((my-or) #f)