From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 20 Jul 2012 23:01:26 +0000 (-0700)
Subject: gtk: Suppress all file load notifications during (load-option 'gtk).
X-Git-Tag: mit-scheme-pucked-9.2.12~573
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=efb9b07815588de4dfd1d4a4293092d21d2a2a8a;p=mit-scheme.git

gtk: Suppress all file load notifications during (load-option 'gtk).
---

diff --git a/src/gtk/make.scm b/src/gtk/make.scm
index 05087a112..3562aa2be 100644
--- a/src/gtk/make.scm
+++ b/src/gtk/make.scm
@@ -10,18 +10,17 @@ Load the Gtk option. |#
 (define (ld option)
   (with-notification
    (option-note-writer option)
-   (lambda ()
-     (fluid-let ((load/suppress-loading-message? #t))
-       (load-option option)))))
+   (lambda () (load-option option))))
 
 (with-notification
  (option-note-writer 'GTK)
  (lambda ()
-   (ld 'SOS)
-   (ld 'FFI) ;; Referenced in gtk.pkg.
-   (with-loader-base-uri
-    (system-library-uri "gtk/")
-    (lambda ()
-      (load-package-set "gtk")))
+   (fluid-let ((load/suppress-loading-message? #t))
+     (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