From 4e987026148fe65c323afbc93cd560c07bf06b3f Mon Sep 17 00:00:00 2001 From: Yale AI Dept Date: Wed, 14 Jul 1993 13:08:00 -0500 Subject: Import to github. --- support/support.scm | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 support/support.scm (limited to 'support/support.scm') diff --git a/support/support.scm b/support/support.scm new file mode 100644 index 0000000..bdecc4f --- /dev/null +++ b/support/support.scm @@ -0,0 +1,35 @@ +;;; 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))) + ) + + -- cgit v1.2.3