;; Simple compile mode commands. Separated in a file to distinguish
;; them from 'real' macros. Note that these access the state directly,
;; and are neither macro primitives, nor macros defined in terms of
;; macro-prim:

(module compiler-commands mzscheme
  (require "composite.ss"
           "macro.ss"
           "badnop.ss")

  (compositions (macro) badnop:
              (pa      dup reverse print-asm)
              (ps      (ps) dip)
              (clear   drop '())
              (sd      (sd) dip))
  
)