From 82c01598dd712f1dbfb3b0fd99f813043fd9fe83 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 4 Aug 1995 17:35:53 +0000
Subject: [PATCH] Fixed bug whereby (LOAD '("file" ... )) would load only the
 last file.

---
 v8/src/runtime/load.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v8/src/runtime/load.scm b/v8/src/runtime/load.scm
index 6d263183d..4556e6fca 100644
--- a/v8/src/runtime/load.scm
+++ b/v8/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.51 1995/07/27 20:22:21 adams Exp $
+$Id: load.scm,v 14.52 1995/08/04 17:35:53 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -108,7 +108,8 @@ MIT in each case. |#
 				       purify?
 				       load-noisily?))))
 			(cond (last-file? (load-it))
-			      (load-noisily? (write-line (load-it)))))))))))
+			      (load-noisily? (write-line (load-it)))
+			      (else (load-it) unspecific)))))))))
 	 (if (pair? filename/s)
 	     (let loop ((filenames filename/s))
 	       (if (null? (cdr filenames))
-- 
2.25.1