From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 4 Nov 2013 00:04:36 +0000 (-0700)
Subject: gl: Simplify make.scm
X-Git-Tag: mit-scheme-pucked-9.2.12~436
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=55c0e935a1c313c59a1ab2c15092a2039461baa3;p=mit-scheme.git

gl: Simplify make.scm

Suppression of option loading messages is now the default.
---

diff --git a/src/gl/make.scm b/src/gl/make.scm
index dc5b77474..6b863acb1 100644
--- a/src/gl/make.scm
+++ b/src/gl/make.scm
@@ -1,16 +1,9 @@
-#| -*-Scheme-*-
+#| -*-Scheme-*- |#
 
-Load the GL option. |#
+;;;; Load the GL option.
 
-(define ((option-note-writer option) port)
-  (write-string "Loading " port)
-  (write-string (symbol-name option) port)
-  (write-string " option" port))
-
-(with-notification
- (option-note-writer 'GL)
- (lambda ()
-   (load-option 'GTK)
-   (fluid-let ((load/suppress-loading-message? #t))
-     (load-package-set "gl"))
-   (add-subsystem-identification! "GL" '(0 1))))
\ No newline at end of file
+(load-option 'GTK)
+(with-loader-base-uri (system-library-uri "gl/")
+  (lambda ()
+    (load-package-set "gl")))
+(add-subsystem-identification! "GL" '(0 1))
\ No newline at end of file