8 lines
157 B
Racket
8 lines
157 B
Racket
#lang racket
|
|
|
|
(provide when-let)
|
|
|
|
(define-syntax-rule (when-let [variable condition] . body)
|
|
(let ([variable condition])
|
|
(when variable
|
|
. body))) |