From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Nov 1990 23:18:23 +0000 (+0000)
Subject: Change `reload-band-name' to return `option_band_file' if no
X-Git-Tag: 20090517-FFI~11046
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e2e9c7a1133238a0914c1d9995d87dc01b024d25;p=mit-scheme.git

Change `reload-band-name' to return `option_band_file' if no
`disk-restore' has been performed since Scheme was started.
---

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index f9f8ef68f..f5cf088df 100644
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.57 1990/10/05 18:58:30 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.58 1990/11/15 23:18:23 cph Exp $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -43,6 +43,7 @@ MIT in each case. */
 #include "osio.h"
 #include "gccode.h"
 #include "trap.h"
+#include "option.h"
 
 static Tchannel load_channel;
 
@@ -696,9 +697,11 @@ The result is a string, or #F if the system was not restored.")
 {
   PRIMITIVE_HEADER (0);
   PRIMITIVE_RETURN
-    ((reload_band_name == 0)
-     ? SHARP_F
-     : (char_pointer_to_string (reload_band_name)));
+    ((reload_band_name != 0)
+     ? (char_pointer_to_string (reload_band_name))
+     : (option_band_file != 0)
+     ? (char_pointer_to_string (option_band_file))
+     : SHARP_F);
 }
 
 typedef void EXFUN ((*Tcleanup), (void));