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)))

  )