ir2.scm

(define-syntax aif
  (ir-macro-transformer
    (lambda (form inject compare?)
      (let ((it (inject 'it))
            (test (cadr form))
            (then (caddr form))
            (else (cadddr form)))
        `(let ((,it ,test))
            (if ,it ,then ,else))))))