From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 23 Jan 2019 20:46:35 +0000 (-0700)
Subject: x11: Link to deprecated (runtime x-graphics) bindings when loaded.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=316527c55c7e4e987f347e38afaf793d5f3312fe;p=mit-scheme.git

x11: Link to deprecated (runtime x-graphics) bindings when loaded.

(cherry picked from commit b0ea100a310b3b09134a162aca42e16c1c71bda6)
---

diff --git a/src/runtime/x11graph.scm b/src/runtime/x11graph.scm
index c8ff1455b..7f5e10086 100644
--- a/src/runtime/x11graph.scm
+++ b/src/runtime/x11graph.scm
@@ -40,8 +40,7 @@ USA.
        (or linked?
 	   (begin
 	     (load-option 'x11)
-	     (link!)
-	     #t))))
+	     linked?))))
 
 (define (link!)
   (for-each
diff --git a/src/x11/make.scm b/src/x11/make.scm
index 24378cd63..5b4cf9c36 100644
--- a/src/x11/make.scm
+++ b/src/x11/make.scm
@@ -5,4 +5,6 @@ Load the X11 option. |#
 (with-loader-base-uri (system-library-uri "x11/")
   (lambda ()
     (load-package-set "x11")))
-(add-subsystem-identification! "X11" '(1 2))
\ No newline at end of file
+(add-subsystem-identification! "X11" '(1 3))
+
+((access link! (->environment '(runtime x-graphics))))
\ No newline at end of file