10 lines
220 B
Racket
10 lines
220 B
Racket
#lang racket
|
|
|
|
(provide if-let)
|
|
|
|
(define-syntax-rule (if-let [variable condition] true-branch false-branch)
|
|
(let ([tmp condition])
|
|
(if tmp
|
|
(let ([variable tmp])
|
|
true-branch)
|
|
false-branch))) |