From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 4 Aug 1995 17:35:53 +0000 (+0000)
Subject: Fixed bug whereby (LOAD '("file" ... )) would load only the last file.
X-Git-Tag: 20090517-FFI~6070
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=82c01598dd712f1dbfb3b0fd99f813043fd9fe83;p=mit-scheme.git

Fixed bug whereby (LOAD '("file" ... )) would load only the last file.
---

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))