Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Renamed to 'my-when'

Browse source
This commit is contained in:
Justin Ethier 2017-12-04 13:18:30 -05:00
parent 0353930feb
commit 2a3e236469
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/when.scm
View file

@ -1,9 +1,9 @@
(import (scheme base) (scheme write)) (import (scheme base) (scheme write))
(define-syntax when (define-syntax my-when
(syntax-rules () (syntax-rules ()
((when test result1 result2 ...) ((my-when test result1 result2 ...)
(if test (if test
(begin result1 result2 ...))))) (begin result1 result2 ...)))))
(write (write
(when #t 1)) (my-when #t 1))