From b8e4ce244c97cbed7bf0bafb1167d5f730623197 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 31 Oct 2013 12:39:05 -0700
Subject: [PATCH] Quiet load-option; suppress loading messages.

---
 src/runtime/option.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

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