  (module match-expander-struct mzscheme
    (require "define-struct.scm")
    (provide (all-defined))
    #;(provide (struct match-expander (match-xform std-xform)))
    (define-struct* match-expander (plt-match-xform match-xform std-xform) 
      (procedure-field std-xform))
    )