mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
9 lines
192 B
Scheme
9 lines
192 B
Scheme
(import (scheme base) (scheme write))
|
|
(define-syntax when
|
|
(syntax-rules ()
|
|
((when test result1 result2 ...)
|
|
(if test
|
|
(begin result1 result2 ...)))))
|
|
|
|
(write
|
|
(when #t 1))
|