From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 13 Jul 2012 02:00:22 +0000 (-0700)
Subject: gtk: Note loading of GTK, not just SOS and FFI.
X-Git-Tag: mit-scheme-pucked-9.2.12~587
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=68849cb2ded789158c3220458e60787c50b29ded;p=mit-scheme.git

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

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