From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 28 Jul 2011 16:22:32 +0000 (-0700)
Subject: Abbreviate option loading-messages.
X-Git-Tag: mit-scheme-pucked-9.2.12~655
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd913be4f2d1ed42d1457c7988eda36de81f3848;p=mit-scheme.git

Abbreviate option loading-messages.
---

diff --git a/src/gtk/make.scm b/src/gtk/make.scm
index 8bc32f2fd..e779c232f 100644
--- a/src/gtk/make.scm
+++ b/src/gtk/make.scm
@@ -2,10 +2,23 @@
 
 Load the Gtk option. |#
 
-(load-option 'SOS)
-(load-option 'FFI) ;; (ffi) package referenced in gtk.pkg!
+(define (ld option)
+  (with-notification
+   (lambda (port)
+     (write-string "Loading " port)
+     (write-string (symbol-name option) port)
+     (write-string " option" port))
+   (lambda ()
+     (fluid-let ((load/suppress-loading-message? #t))
+       (load-option option)))))
+
+(ld 'SOS)
+(ld 'FFI) ;; Referenced in gtk.pkg.
+
 (with-loader-base-uri (system-library-uri "gtk/")
   (lambda ()
     (load-package-set "gtk")))
+
 (add-subsystem-identification! "Gtk" '(0 3))
+
 ((access gtk-start (->environment '(gtk main))))
\ No newline at end of file