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

New test file

Browse source
This commit is contained in:
Justin Ethier 2017-12-04 13:15:32 -05:00
parent a8527380a6
commit 0353930feb
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/when.scm Normal file
View file

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