Name: Anonymous 2011-04-21 16:07
Fuck em!
(define-syntax (aif stx)
(let ((whole (syntax-e stx)))
(datum->syntax
stx `(let ((it ,(cadr whole)))
(if it ,(caddr whole) ,(cadddr whole))))))