gtk: Note loading of GTK, not just SOS and FFI.

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