From 55c0e935a1c313c59a1ab2c15092a2039461baa3 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 3 Nov 2013 17:04:36 -0700
Subject: [PATCH] gl: Simplify make.scm

Suppression of option loading messages is now the default.
---
 src/gl/make.scm | 21 +++++++--------------
 1 file changed, 7 insertions(+), 14 deletions(-)

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
-- 
2.25.1