12345678910111213141516171819202122232425 |
- ; 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)))
|