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

Added more test cases

Browse source
This commit is contained in:
Justin Ethier 2015-08-14 21:37:33 -04:00
parent a5e1520137
commit cbe806a168
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test2.scm
View file

@ -28,6 +28,14 @@
(cons (rename 'and) (cddr expr)) (cons (rename 'and) (cddr expr))
#f)))))) #f))))))
(define-syntax test2
(er-macro-transformer
(lambda (expr rename compare)
(test 1 2 3) ; breaks
;(my-or 1 2 3) ; breaks
(list 'test #t))))
;(define-syntax or ;(define-syntax or
; (er-macro-transformer ; (er-macro-transformer
; (lambda (expr rename compare) ; (lambda (expr rename compare)
@ -39,6 +47,7 @@
; (rename 'tmp) ; (rename 'tmp)
; (cons (rename 'or) (cddr expr))))))))) ; (cons (rename 'or) (cddr expr)))))))))
(write (test2 1 2 3))
(write (test 1 2 3)) (write (test 1 2 3))
(write (my-or 1 2 3 'or)) (write (my-or 1 2 3 'or))
(write (my-or #f 2 3 'or)) (write (my-or #f 2 3 'or))