;; Code for module based rpn code abstraction.

(module rpn-module mzscheme

  (require-for-syntax "tx-utils.ss"
                      "rpn-tx.ss")

  (provide prefix-define)

  (define-syntax (prefix-define stx)
    (syntax-case stx ()
      ((_ pre- name expr)
       #`(define #,(prefix #'pre- #'name)
           expr))))

  
  
  )