blob: ac03b1078b054fa0e29493353fa20309a1269556 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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)))
|