From 66ee2b0197b0e21d2ff240e01c740280a901b427 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 Jul 1991 17:58:00 +0000
Subject: [PATCH] Change DISK-RESTORE to try explicit filename first before
 tacking on ".com".

---
 v7/src/runtime/savres.scm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/v7/src/runtime/savres.scm b/v7/src/runtime/savres.scm
index 70749a9e8..cb3484998 100644
--- a/v7/src/runtime/savres.scm
+++ b/v7/src/runtime/savres.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.19 1991/05/14 02:58:16 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/savres.scm,v 14.20 1991/07/12 17:58:00 cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -125,12 +125,16 @@ MIT in each case. |#
 	 (pathname->string
 	  (if (default-object? filename)
 	      (canonicalize-input-pathname
-	       (or ((ucode-primitive reload-band-name))
-		   (error "no default band name available")))
-	      (let ((pathname
-		     (pathname-default-type (->pathname filename) "com")))
+	       (let ((filename ((ucode-primitive reload-band-name))))
+		 (if (not filename)
+		     (error "no default band name available"))
+		 filename))
+	      (let ((pathname (->pathname filename)))
 		(or (pathname->input-truename pathname)
-		    (system-library-pathname pathname)))))))
+		    (let ((pathname
+			   (pathname-default-type pathname "com")))
+		      (or (pathname->input-truename pathname)
+			  (system-library-pathname pathname)))))))))
     (event-distributor/invoke! event:before-exit)
     ((ucode-primitive load-band) filename)))
 
-- 
2.25.1