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

WIP, testing

Browse source
This commit is contained in:
Justin Ethier 2017-12-07 12:57:38 -05:00
parent 23e67294ec
commit 2fe78947ab
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/let-syntax-298.scm
View file

@ -8,9 +8,11 @@
(let-syntax ((foo (syntax-rules () ((_) 'ok))))
(foo)))))
;(define-syntax foo (syntax-rules ()))
(define-syntax foo (syntax-rules () ((_) 'foo)))
(write
(bar)
)
;(foo)
(write
(foo)
)

3
tests/when.scm
View file

@ -74,7 +74,8 @@
((test maybe-symbol t f) t)
((test x t f) f))))
(test abracadabra kt kf)))))
;;(write (symbol?? a))
(write (symbol?? a #t #f))
(write (symbol?? "a" #t #f))
(write
(let-syntax