;; Forth compiler core.

#lang scheme/base
(require
 "tools.ss")

(require/provide
 "comp/instantiate.ss"  ;; code instantiation
 "comp/postprocess.ss"  ;; code postprocessing optimizations
 "comp/label.ss"        ;; redefine primitive label/jump words to support flow analysis
 )


;; Link compiler and postprocessor/optimizer.

(define (target-compile words)
  (target-postprocess!
   (target-compile-1 words)))

(provide
 (all-defined-out))

(loading "comp")