Name: Suomynona 2011-12-21 2:53
So is Common Lisp.
(defmacro aif (cond then else)
`(let ((it ,cond))
(if it ,then ,else)))
#lang racket
(require racket/stxparam)
(define-syntax-parameter it (lambda (stx) (raise-syntax-error 'anaphora "missed context" stx)))
(define-syntax-rule (aif cond then else)
(let ([temp cond])
(syntax-parameterize ([it (make-rename-transformer #`temp)])
(if temp then else))))