;; Control stack extensions to Coma.

#lang scheme/base
(require
 "tools.ss"
 "coma/macro-eval.ss")
(require/provide
 "control/control.ss"      ;; pure control words
 "control/2stack.ss"       ;; core machine = scat machine + assembly code stack
 )

(provide
 (all-defined-out))


;; For testing Coma+Control macros using the 'macro>' Scheme macro
;; with only 2stack state (not the full compiler state). This uses
;; [label ...]  and [jw/if ...] pseudo ops. See comp.ss for the real
;; work.

(macro-eval-init-state
 state:2stack)


(loading "control")
