From 795ba283ea1050cd18d99fad23e5a30da78be17b Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 8 Sep 2014 11:27:56 -0700 Subject: [PATCH] gtk-screen: Fix testing to use new fluid library-directory-path. --- src/gtk-screen/check.scm | 5 ++--- src/gtk-screen/gtk-screen-optiondb.scm | 4 ++-- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/src/gtk-screen/check.scm b/src/gtk-screen/check.scm index f35dffbf3..8fb50080a 100644 --- a/src/gtk-screen/check.scm +++ b/src/gtk-screen/check.scm @@ -2,10 +2,9 @@ ;;;; Test the gtk screen. -(let ((env (->environment '(runtime pathname))) +(let ((flu (access library-directory-path (->environment '(runtime pathname)))) (dirname (directory-pathname (current-load-pathname)))) - (set! (access library-directory-path env) - (cons dirname (access library-directory-path env))) + (set-fluid! flu (cons dirname (fluid flu))) (set! *initial-options-file* (merge-pathnames "gtk-screen-optiondb" dirname))) (load-option 'GTK-SCREEN) diff --git a/src/gtk-screen/gtk-screen-optiondb.scm b/src/gtk-screen/gtk-screen-optiondb.scm index 0b31b294b..edf537ad8 100644 --- a/src/gtk-screen/gtk-screen-optiondb.scm +++ b/src/gtk-screen/gtk-screen-optiondb.scm @@ -11,5 +11,5 @@ (further-load-options (merge-pathnames "optiondb" - (last (access library-directory-path - (->environment '(runtime pathname)))))) \ No newline at end of file + (last (fluid (access library-directory-path + (->environment '(runtime pathname))))))) \ No newline at end of file -- 2.25.1