From 316527c55c7e4e987f347e38afaf793d5f3312fe Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 23 Jan 2019 13:46:35 -0700 Subject: [PATCH] x11: Link to deprecated (runtime x-graphics) bindings when loaded. (cherry picked from commit b0ea100a310b3b09134a162aca42e16c1c71bda6) --- src/runtime/x11graph.scm | 3 +-- src/x11/make.scm | 4 +++- 2 files changed, 4 insertions(+), 3 deletions(-) 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 -- 2.25.1