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

diff --git a/src/gtk/make.scm b/src/gtk/make.scm
index 05087a1128e9826b16036d8ba968a32ecc1b8231..3562aa2be8da8fa2f641c10ce8767c6903000326 100644 (file)
--- 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