2010年1月17日日曜日

PLT で macroexpand


(module macroexpand scheme

(provide (all-defined-out))

(define (macroexpand arg)
(syntax->datum (expand arg)))

(define (macroexpand-1 arg)
(syntax->datum (expand-once arg)))

)

0 件のコメント:

コメントを投稿