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

Added letrec-syntax example from r7rs

Browse source
This commit is contained in:
Justin Ethier 2017-12-11 12:15:07 -05:00
parent 1903a87cb9
commit 7e2a9f46c2
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/let-syntax.scm
View file

@ -1,4 +1,14 @@
(import (scheme base) (scheme write))
(import (scheme base) (scheme write) (scheme cyclone pretty-print))
#;(letrec-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) (let odd?) (if even?))
(my-or x (let temp) (if y) y))) ;; ==> 7
(define-syntax my-let
(syntax-rules