1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Richard Kelsey, Jonathan Rees
; Link script.
(define (link-revised^5-system)
(let ((structures-to-open (struct-list scheme)))
(link-reified-system structures-to-open
'revised^5
`(start ',(map car structures-to-open))
initial-system
for-reification
;; Extra stuff (from more-packages.scm)
disclosers
package-mutation shadowing
bignums ratnums floatnums
)))
(define scheme (make-scheme environments evaluation))
(define initial-system
(make-initial-system scheme (make-mini-command scheme)))
|
