File: r5-system.scm

package info (click to toggle)
scsh-0.6 0.6.7-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 15,124 kB
  • ctags: 16,788
  • sloc: lisp: 82,839; ansic: 23,112; sh: 3,116; makefile: 829
file content (22 lines) | stat: -rw-r--r-- 590 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
; 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)))