From 68849cb2ded789158c3220458e60787c50b29ded Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 12 Jul 2012 19:00:22 -0700 Subject: [PATCH] gtk: Note loading of GTK, not just SOS and FFI. --- src/gtk/make.scm | 31 +++++++++++++++++-------------- 1 file changed, 17 insertions(+), 14 deletions(-) diff --git a/src/gtk/make.scm b/src/gtk/make.scm index e779c232f..05087a112 100644 --- a/src/gtk/make.scm +++ b/src/gtk/make.scm @@ -2,23 +2,26 @@ Load the Gtk option. |# +(define ((option-note-writer option) port) + (write-string "Loading " port) + (write-string (symbol-name option) port) + (write-string " option" port)) + (define (ld option) (with-notification - (lambda (port) - (write-string "Loading " port) - (write-string (symbol-name option) port) - (write-string " option" port)) + (option-note-writer option) (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 +(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"))) + (add-subsystem-identification! "Gtk" '(0 3)) + ((access gtk-start (->environment '(gtk main)))))) \ No newline at end of file -- 2.25.1