From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 31 Oct 2013 19:39:05 +0000 (-0700)
Subject: Quiet load-option; suppress loading messages.
X-Git-Tag: mit-scheme-pucked-9.2.12~444
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b8e4ce244c97cbed7bf0bafb1167d5f730623197;p=mit-scheme.git

Quiet load-option; suppress loading messages.
---

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index c19922351..bcb9ec430 100644
--- a/src/runtime/option.scm
+++ b/src/runtime/option.scm
@@ -38,8 +38,19 @@ USA.
 	    ((not no-error?) (error "Unknown option name:" name))
 	    (else #f)))
 
+    (define (notifier option)
+      (named-lambda (notify port)
+	(write-string "Loading " port)
+	(write-string (symbol-name option) port)
+	(write-string " option" port)))
+
     (define (load-entry entry)
-      (for-each (lambda (thunk) (thunk)) (cdr entry))
+      (with-notification
+       (notifier name)
+       (lambda ()
+	 (fluid-let ((load/suppress-loading-message? #t))
+	   (for-each (lambda (thunk) (thunk))
+		     (cdr entry)))))
       (set! loaded-options (cons name loaded-options))
       name)