Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 14:49: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)))) (let-syntax ((foo (syntax-rules () ((_) 'ok))))
(foo))))) (foo)))))
;(define-syntax foo (syntax-rules ())) (define-syntax foo (syntax-rules () ((_) 'foo)))
(write (write
(bar) (bar)
) )
;(foo) (write
(foo)
)

3
tests/when.scm
View file

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