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

Tweaked syntax

Browse source
This commit is contained in:
Justin Ethier 2017-12-11 13:44:47 -05:00
parent 7e2a9f46c2
commit 04b32d6a5e
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/let-syntax.scm
View file

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