From efb9b07815588de4dfd1d4a4293092d21d2a2a8a Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 20 Jul 2012 16:01:26 -0700 Subject: [PATCH] gtk: Suppress all file load notifications during (load-option 'gtk). --- src/gtk/make.scm | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) 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 -- 2.25.1