Quiet load-option; suppress loading messages.

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index c1992235139a3d5350beca3457a303ac595ec285..bcb9ec430e36c8f15ff47daa79c21a9174441cf5 100644 (file)
--- 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)