;;; support.scm -- load support files shared by all systems
;;;
;;; author :  Sandra Loosemore
;;; date   :  28 Oct 1991
;;;
;;;


;;; Keep track of all compilation units defined.
;;; This has to go here and not in compile.scm because we don't want this
;;; list reinitialized every time that file is loaded.

(define compilation-units '())


;;; Load this file first; it defines the basic compilation system support.
;;; It doesn't matter if this ends up loading source because we'll compile
;;; and reload it below.  

(load "$Y2/support/compile.scm")


;;; Define a real compilation unit for shared support files.

(define-compilation-unit support
  (source-filename "$Y2/support/")
  (unit compile (source-filename "compile.scm"))
  (unit utils   (source-filename "utils.scm"))
  (unit xp
	(unit pprint (source-filename "pprint.scm"))
	(unit format (source-filename "format.scm")
	      (require pprint)))
  )