#lang scheme/base

(require
 "../tools.ss"
 (for-syntax
  scheme/base
  "../scat-tx.ss"
  "macro-tx.ss"))

(provide
 (all-defined-out))

(define-syntax (macro: stx)
  (syntax-case stx ()
    ((_ . src)
     (with-macro-syntax ;; already has namespace bound in a special way
      (lambda ()
        (rpn-compile #'src))))))

(define-sr (define-procedure name)
  (define-ns (macro) name
    (postponed-word 'name)))