Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 15:27:36 +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))
(define-syntax when
(define-syntax my-when
(syntax-rules ()
((when test result1 result2 ...)
((my-when test result1 result2 ...)
(if test
(begin result1 result2 ...)))))
(write
(when #t 1))
(my-when #t 1))