From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Jun 2002 18:25:20 +0000 (+0000)
Subject: Give LOAD-LIBRARY-OBJECT-FILE an optional argument NOISY? that
X-Git-Tag: 20090517-FFI~2169
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=02334d096444df00bfd64974f464db6420d3d4ee;p=mit-scheme.git

Give LOAD-LIBRARY-OBJECT-FILE an optional argument NOISY? that
controls whether the loading message is displayed.  By default, the
message isn't displayed (as opposed to previous behavior).
---

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index 93d36ffd6..9ceebb0bd 100644
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.60 2001/12/19 05:21:42 cph Exp $
+$Id: load.scm,v 14.61 2002/06/28 18:25:20 cph Exp $
 
-Copyright (c) 1988-2001 Massachusetts Institute of Technology
+Copyright (c) 1988-2002 Massachusetts Institute of Technology
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -272,7 +272,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 			   (nearest-repl/environment)
 			   environment)))
 
-(define (load-library-object-file name errors?)
+(define (load-library-object-file name errors? #!optional noisy?)
   (let ((directory (system-library-directory-pathname "lib"))
 	(nsf
 	 (lambda ()
@@ -295,7 +295,11 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 		       (find "sl")))))
 	    (cond ((not pathname*)
 		   (nsf))
-		  ((ignore-errors (lambda () (load pathname*)))
+		  ((ignore-errors
+		    (lambda ()
+		      (fluid-let ((load/suppress-loading-message?
+				   (if (default-object? noisy?) #f noisy?)))
+			(load pathname*))))
 		   => (lambda (condition)
 			(if errors?
 			    (signal-condition condition)