Name: Anonymous 2013-07-12 5:58
macro-test.rkt:
subj
#lang racket
(define-syntax my-map
(lambda (stx)
(syntax-case stx (in)
[(my-map func lst)
(displayln (read))
(let ([func2 (eval (syntax->datum #'func))]
[lst2 (eval (syntax->datum #'lst))])
#`'#,(map func2 lst2))])))
(my-map (λ (x) (- x 4)) '(7 8 9))
$ raco exe macro-test.rkt
hajshdf
hajshdf
9898989898989898989
9898989898989898989
$ ./macro-test
'(3 4 5)subj