From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Mon, 16 Jan 2017 17:59:44 +0000 (-0700)
Subject: gtk-screen/make.scm: Let higher power (caller) suppress load notes.
X-Git-Tag: mit-scheme-pucked-9.2.12~245
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff8778a9fd96f2aa99c2c653a10946084c795c01;p=mit-scheme.git

gtk-screen/make.scm: Let higher power (caller) suppress load notes.
---

diff --git a/src/gtk-screen/make.scm b/src/gtk-screen/make.scm
index b1fe419bf..84759dd40 100644
--- a/src/gtk-screen/make.scm
+++ b/src/gtk-screen/make.scm
@@ -2,10 +2,9 @@
 
 Load the Gtk-Screen option. |#
 
-(parameterize ((param:suppress-loading-message? #t))
-  (load-option 'Gtk)
-  (load-option 'Edwin)
-  (with-loader-base-uri (system-library-uri "gtk-screen/")
-    (lambda ()
-      (load-package-set "gtk-screen"))))
+(load-option 'Edwin)
+(load-option 'Gtk)
+(with-loader-base-uri (system-library-uri "gtk-screen/")
+  (lambda ()
+    (load-package-set "gtk-screen")))
 (add-subsystem-identification! "Gtk-Screen" '(0 1))
\ No newline at end of file