10 lines
265 B
Scheme
10 lines
265 B
Scheme
(define-library (t)
|
|
(import (primitives+builtins))
|
|
(begin
|
|
(let-syntax ((when (syntax-rules ()
|
|
((_ test body ...)
|
|
(if test (begin body ...))))))
|
|
(when #t
|
|
(display "blah")
|
|
(newline)))))
|