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 6d263183dd2b879881ad958c73581a49c2985929..4556e6fcac28ac5e18c0c64849f0aafc1e6d6121 100644 (file)
--- 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))