Began anaphoric macro library.

netguy204 · Feb 13, 2011 · 9925a2f · 9925a2f
1 parent 8c2282a
commit 9925a2f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/anaphoric.sch b/anaphoric.sch
@@ -0,0 +1,9 @@
+;; DESCRIPTION: Anaphoric macros from On Lisp
+
+(define-syntax (alambda args . body)
+  `(letrec ((self (lambda ,args ,@body)))
+     self))
+
+(define-syntax (aif test then . else)
+  `(let ((it ,test))
+     (if it ,then ,(car else))))