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
|
; Copyright (c) 1993-2008 by Richard Kelsey. See file COPYING.
; -*- Mode: Scheme; -*-
; To load the Pre-Scheme compiler into Scheme 48:
; ,exec ,load load-ps-compiler.scm
; It needs a larger than default sized heap. 4000000 is big enough to
; load the pre-scheme compiler but not big enough to compile the VM,
; 12000000 is enough to compile the VM.
;
; compile-vm.exec is an exec script to compile the Scheme 48 virtual machine.
;
; This requires that Pre-Scheme already be loaded.
(user '(run (let ((minor-number (call-with-input-file
"minor-version-number"
(lambda (in)
(read in)))))
(newline)
(newline)
(display "Pre-Scheme compiler version 1.")
(display minor-number)
(newline)
(display "Copyright (c) 1993-2008 by Richard Kelsey.")
(newline)
(display "Please report bugs to pre-scheme@s48.org.")
(newline)
(newline))))
(config)
(structure 'reflective-tower-maker
'(export-reflective-tower-maker))
(load "interfaces.scm")
(load "package-defs.scm")
(load "prescheme/interfaces.scm")
(load "prescheme/package-defs.scm")
(load-package 'let-nodes) ; used in FOR-SYNTAX
(load-package 'simp-patterns) ; used in FOR-SYNTAX
(load-package 'prescheme-compiler)
|
