Permalink
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (7 sloc) 231 Bytes
;; 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))))