Rewrite for 7.1.0 release.

diff --git a/etc/make_runtime b/etc/make_runtime
index be550e8ff0bb5f8da4483a0f977b6fffe2c8d1e5..1d1b202604331920161dcb4d5cdc74d5d7ec2e9d 100755 (executable)
--- a/etc/make_runtime
+++ b/etc/make_runtime
@@ -1,5 +1,5 @@
 #!/bin/csh -f
 # Script to generate standard runtime band from binaries.
-# $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/make_runtime,v 1.1 1989/07/26 22:52:10 cph Rel $
+# $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/make_runtime,v 1.2 1990/12/12 03:08:46 cph Exp $
 cd runtime
-exec ../microcode/scheme -utabmd ../lib/utabmd.bin -fasl make.bin < ../etc/mkband.scm
+exec ../microcode/scheme -library ../lib -fasl make.bin < ../etc/mkband.scm

diff --git a/etc/mkband.scm b/etc/mkband.scm
index 1de66030382fd949f9378b8072daaa38a8158294..0b43b5de6533912ff801296718587cf48760adf8 100644 (file)
--- a/etc/mkband.scm
+++ b/etc/mkband.scm
@@ -1,10 +1,8 @@
-n;;; -*- Scheme -*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/mkband.scm,v 1.4 1989/07/26 23:14:57 cph Rel $
+;;; -*- Scheme -*-
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/mkband.scm,v 1.5 1990/12/12 03:07:58 cph Exp $
 ;;; Input file to build standard bands.
-;;; NOTE: The `n' at the beginning of this file is not a typo!
 
 (set-working-directory-pathname! "../sf")
 (load "make")
-n
 (disk-save "../lib/runtime.com")
 (%exit)
\ No newline at end of file