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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Richard Kelsey, Jonathan Rees, Mike Sperber, Ivan Shmakov
; Packages involved in building the initial system.
; Access to values from packages and structures
(define-structure environments environments-interface
(open scheme-level-2
packages bindings meta-types
fluids cells
locations ; contents location-assigned?
exceptions) ; error
(files (rts env)))
; EVAL and LOAD
(define-structures ((evaluation evaluation-interface)
(load-filenames load-filenames-interface))
(open scheme-level-2
packages ;package-uid package->environment link!
environments ;package-for-load
compiler-envs ;bind-source-filename
reading-forms ;read-forms $note-file-package
syntactic ;scan-forms expand-forms
compiler ;compile-forms
closures ;make-closure
vm-exposure ;invoke-closure
features ;current-noise-port force-output
exceptions fluids cells)
(files (rts eval)))
; Scheme = scheme-level-2 plus EVAL and friends
(define-module (make-scheme environments evaluation)
(define-structure scheme scheme-interface
(open scheme-level-2
environments
evaluation))
scheme)
; Command processor.
(define-module (make-mini-command scheme) ;copied from debug-packages.scm
(define-structure mini-command (export command-processor)
(open scheme
ascii byte-vectors os-strings
writing methods
conditions exceptions handle
i/o) ;current-error-port
(files (debug mini-command)
(env dispcond))) ; avoid having to include this generally
mini-command)
; For building systems.
(define-module (make-initial-system scheme command)
(define-structure initial-system (export start)
(open scheme
command
interfaces ;make-simple-interface
packages ;make-simple-package
environments ;with-interaction-environment, etc.
usual-resumer)
(files (env start)))
initial-system)
; Utility to load packages following dependency links (OPEN and ACCESS)
;Cf. (link-initial-system) and Makefile
(define-structure ensures-loaded (export ensure-loaded)
(open scheme-level-2
features ;current-noise-port
packages ;package-uid package-clients
packages-internal ;package-loaded? set-package-loaded?!
scan-package ;collect-packages check-structure
compile-packages ;compile-package
closures ;make-closure
vm-exposure ;invoke-closure
environments ;with-interaction-environment
weak ;walk-population
)
(files (env load-package)))
; Things needed by the expression generated by REIFY-STRUCTURES.
(define-structure for-reification for-reification-interface
(open scheme-level-1
packages packages-internal
exceptions
meta-types ;sexp->type structure-type
interfaces ;make-simple-interface
bindings
nodes ;get-operator operator? operator-type
primops ;get-primop primop? primop-type
usual-macros ;usual-transform
inline ;inline-transform
transforms ;make-transform/xxx transform? transform-type
tables)
(files (bcomp for-reify)))
|
