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 c8ff1455b3a7c6c5638a877745068e84a256d3cf..7f5e10086f0aaeb9e39b76d2f26a5803125fc82f 100644 (file)
--- 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 24378cd631bed5907d6ef00432f53edeaa45f783..5b4cf9c3651f1775d2e91a7b4824d73b4d929248 100644 (file)
--- 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