*** empty log message ***

diff --git a/etc/mkband.scm b/etc/mkband.scm
index 60201752af76e95fc224837032a05fde5aab4d12..22cdd0ef98dda238f618f0efb0f833691fb0665c 100644 (file)
--- a/etc/mkband.scm
+++ b/etc/mkband.scm
@@ -1,11 +1,13 @@
-;;; -*- Scheme -*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/mkband.scm,v 1.2 1988/03/31 04:39:47 cph Exp $
+n;;; -*- Scheme -*-
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/mkband.scm,v 1.3 1989/07/01 11:05:49 cph Exp $
 ;;; Input file to build standard bands.
-((access finish-load runtime-system))
+;;; NOTE: The `n' at the beginning of this file is not a typo!
+
 (set-working-directory-pathname! "../sf")
-(load "make.bin" system-global-environment)
-(set-working-directory-pathname! "../runtime")
-(disk-save "runtime.bin")
-(load "sbuild.bin" system-global-environment)
-(disk-save "sicp.bin")
-(%exit)
\ No newline at end of file
+(load "make")
+n
+(disk-save "../lib/runtime.com")
+(set-working-directory-pathname! "../compiler")
+(load "machines/bobcat/make")
+n
+(disk-save "../lib/compiler.com")(%exit)
\ No newline at end of file