Name: Anonymous 2011-03-02 8:20
* (nth 1 '(1 2 3 4))
2
* (elt "1234" 1)
#\2Explain this bullshit. argument order
* (nth 1 '(1 2 3 4))
2
* (elt "1234" 1)
#\2
Welcome to MzScheme v372 [3m], Copyright (c) 2004-2007 PLT Scheme Inc.
(define-syntax (define-macro stx)
(syntax-case stx ()
((~ (n . a) . f) #'(~ n (lambda a . f)))
((~ n f)
#'(define-syntax (n stx)
(syntax-case stx ()
((k . r) #`#,(apply f (syntax->datum #'r))))))))
(define-macro (aif cond then else)
`(let ((it ,cond))
(if it ,then ,else)))
(aif 123 it nil)
reference to undefined identifier: syntax->datum