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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-12-04 17:29:12 -05:00
parent ff5055664b
commit a260474e7d
1 changed files with 33 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
tests/when.scm
View file

@ -8,10 +8,10 @@
(define-syntax my-when2 (define-syntax my-when2
(syntax-rules () (syntax-rules ()
((my-when test result1 result2 ...) ((my-when test result1 result2 ...)
(list test)))) (list result2 ...))))
(write ;(write
(my-when2 #t 1)) ; (my-when2 #t 1))
(define my-when2* (define my-when2*
(lambda (expr$28 rename$29 compare$30) (lambda (expr$28 rename$29 compare$30)
@ -46,5 +46,34 @@
(car v.1$36)) (car v.1$36))
#f)) #f))
(cdr expr$28)))))) (cdr expr$28))))))
;; TODO: seems broken
(define-syntax my-when4
(syntax-rules ()
((my-when test result1 result2 ...)
(let-syntax
((second
(syntax-rules ()
((second a b c)
b))))
(second 33 44 55)))))
(write (write
(my-when2* '(my-when2* 't 1) (lambda (a) a) (lambda X #f))) (my-when4 't 1 2 3))
; (my-when2
; 't
; 1
; (let-syntax
; ((my-when3
; (syntax-rules ()
; ((my-when3 test result1 result2 ...)
; (list result2 ...)))))
; (my-when3 33 44 55))
; 2
; 3))
;(write
; (my-when2 '(my-when2 't 1 2 3) (lambda (a) a) (lambda X #f)))
;(write
; (my-when2 '(my-when2 "testing" 1) (lambda (a) a) (lambda X #f)))