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 dc5b774740818c3bcd979d798db5c76bd768a29b..6b863acb1756a303ec86192623bd22f3b3d741cb 100644 (file)
--- 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