23 lines
590 B
Scheme
23 lines
590 B
Scheme
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
; 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)))
|