diff options
author | Yale AI Dept <ai@nebula.cs.yale.edu> | 1993-07-14 13:08:00 -0500 |
---|---|---|
committer | Duncan McGreggor <duncan.mcgreggor@rackspace.com> | 1993-07-14 13:08:00 -0500 |
commit | 4e987026148fe65c323afbc93cd560c07bf06b3f (patch) | |
tree | 26ae54177389edcbe453d25a00c38c2774e8b7d4 /support/system.scm |
Import to github.
Diffstat (limited to 'support/system.scm')
-rw-r--r-- | support/system.scm | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/support/system.scm b/support/system.scm new file mode 100644 index 0000000..ac03b10 --- /dev/null +++ b/support/system.scm @@ -0,0 +1,51 @@ +;;; system.scm -- haskell system setup +;;; +;;; author : Sandra Loosemore +;;; date : 22 Nov 1991 +;;; +;;; This file loads in the compilation unit definition files for all +;;; of the components of the haskell system. +;;; +;;; (The compilation unit facility is defined in support/shared/compile.scm.) + + +;;; First load the files containing module definitions. +;;; *** Add more files to the end of this list. + +(load "$Y2/support/support") +(load "$Y2/ast/ast") +(load "$Y2/top/top") +(load "$Y2/util/haskell-utils") +(load "$Y2/printers/printers") +(load "$Y2/parser/parser") +(load "$Y2/import-export/ie.scm") +(load "$Y2/tdecl/tdecl.scm") +(load "$Y2/derived/derived.scm") +(load "$Y2/prec/prec.scm") +(load "$Y2/depend/depend.scm") +(load "$Y2/type/type.scm") +(load "$Y2/cfn/cfn.scm") +(load "$Y2/flic/flic.scm") +(load "$Y2/backend/backend.scm") +(load "$Y2/runtime/runtime.scm") +(load "$Y2/csys/csys") +(load "$Y2/command-interface/command-interface") + +;;; Define some functions to actually do the work. The compilation unit +;;; facility has conveniently kept a list of all of the unit definitions, +;;; so we can just rip through them in sequence. + +(define (compile-haskell) + (compile-and-load-unit-list compilation-units)) + +(define (recompile-haskell) + (unless (null? remaining-units) + (compile-and-load-unit-list remaining-units))) + + +(define (load-haskell) + (load-unit-list compilation-units)) + +(define (reload-haskell) + (unless (null? remaining-units) + (load-unit-list remaining-units))) |