11 lines
186 B
Racket
11 lines
186 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
(define-syntax-rule (list-when test body)
|
||
|
|
(if test
|
||
|
|
body
|
||
|
|
'()))
|
||
|
|
|
||
|
|
(let ([not-a-string 42])
|
||
|
|
(list-when (string? not-a-string)
|
||
|
|
(string->list not-a-string)))
|