41 lines
1.3 KiB
Scheme
41 lines
1.3 KiB
Scheme
|
; Copyright (c) 1993-1999 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 0.")
|
||
|
|
(display minor-number)
|
||
|
|
(newline)
|
||
|
|
(display "Copyright (c) 1994-1999 by Richard Kelsey.")
|
||
|
|
(newline)
|
||
|
|
(display "Please report bugs to pre-scheme@martigny.ai.mit.edu.")
|
||
|
|
(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)
|