--- microscheme/init.scm	2015/12/02 17:01:18	1.29
+++ microscheme/init.scm	2015/12/07 18:10:57	1.30
@@ -712,6 +712,11 @@
           (if (< *seed* 0) (set! *seed* (+ *seed* m)))
           *seed*))
 
+
+(define-macro (aif a b c)
+  `(let ((it ,a))
+     (if it ,b ,c)))
+
 ;; SRFI-0
 ;; COND-EXPAND
 ;; Implemented as a macro