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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Richard Kelsey, Mike Sperber
; This configuration file provides alternative implementations of the
; low, run-time, and run-time-internals structures. Cf. the interface
; definitions in packages.scm.
(define-structure scheme-level-0 scheme-level-0-interface
(open scheme))
(define-structure escapes escapes-interface ;cf. alt/low-packages.scm
(open scheme-level-2 define-record-types low-exceptions)
(files (alt escape)))
(define-structures ((low-level low-level-interface)
(source-file-names (export (%file-name% :syntax)))
(structure-refs (export (structure-ref :syntax))))
(open scheme-level-2 low-exceptions)
(files (alt low)))
(define-structure closures closures-interface
(open scheme-level-1 records)
(files (alt closure)))
(define-structure locations locations-interface
(open scheme-level-2 records)
(files (alt locations)))
(define-structure loopholes (export (loophole :syntax))
(open scheme-level-2)
(files (alt loophole)))
(define-structure silly (export reverse-list->string)
(open scheme-level-1)
(files (alt silly)))
(define-structure write-images (export write-image)
(open scheme-level-2
tables ;Forward reference
features bitwise ascii enumerated
architecture
templates
closures
low-exceptions)
(files (link data)
(link transport)
(link write-image)))
; --------------------
; run-time (generally speaking, things needed by the linker)
; Same as in rts-packages.scm:
(define-structure architecture vm-architecture-interface
(open scheme-level-1 low-exceptions enumerated)
(files (vm/interp arch)))
(define-structure define-record-types define-record-types-interface
(open scheme-level-1 records)
(files (alt jar-defrecord)))
; Same as in rts-packages.scm:
(define-structure enumerated enumerated-interface
(open scheme-level-1 low-exceptions)
(files (rts defenum scm)))
(define-structure fluids fluids-interface
(open scheme-level-1 low-exceptions)
(files (alt fluid)))
(define-structures ((scheme-level-2 scheme-level-2-interface)
(scheme-level-1 scheme-level-1-interface))
(open scheme))
(define-structure templates templates-interface
(open scheme-level-1)
(files (alt template)
(rts template)))
(define-structure util util-interface
(open scheme-level-1)
(files (rts util)))
(define-structure syntax-rules-data syntax-rules-data-interface
(open scheme-level-1)
(files (rts syntax-rules-data)))
(define-structure syntax-rules-apply syntax-rules-apply-interface
(open scheme-level-1)
(files (rts syntax-rules-apply)))
(define-structure weak weak-interface
(open scheme-level-1 low-exceptions)
(files (alt weak)
(rts population)))
(define-structure debug-messages (export debug-message)
(open scheme-level-2)
(files (alt debug-message)))
; --------------------
; run-time internals (generally speaking, things not needed by the linker)
; * = mentioned in more-packages.scm
; conditions
; continuations
; * exceptions
; * fluids-internal
; methods
; meta-methods
; interrupts
; low-level
; more-types
; * number-i/o
; * ports
; * reading
; * records-internal
; usual-resumer
; * wind
; writing
(define-structure wind wind-interface
(open scheme-level-2)
(files (alt reroot)))
(define-structure continuations continuations-interface
(open scheme-level-1 templates methods)
(files (alt contin)
(rts continuation))
(optimize auto-integrate))
; --------------------
; These don't really belong here, but I sure don't know where they
; ought to go.
(define-structure environments (export *structure-ref)
(open ) ;Assume flatloading
(files (alt environments)))
; Procedure annotations
(define-structure annotations
(export annotate-procedure procedure-annotation)
(open scheme-level-1)
(files (alt annotate)))
|
