Name: Anonymous 2011-01-31 6:28
Is Clojure a better language than Racket?
(define-syntax (aif stx)
(syntax-case stx ()
((~ p t f)
(with-syntax ((it (datum->syntax stx 'it)))
#'(let ((it p)) (if it t f))))))(define-syntax (with-identifiers stx)
((~ stx (ids ...) . body)
#'(with-syntax ((ids (datum->syntax stx 'ids)) ...) . body)))define-macro some time ago.#lang r6rs