blob: bdecc4f8653c01484f7ebb4856990be94e93cb8d (
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
|
;;; 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)))
)
|