gtk-screen: Fix testing to use new fluid library-directory-path.

diff --git a/src/gtk-screen/check.scm b/src/gtk-screen/check.scm
index f35dffbf3b60792e62a72e3d56310382087f1b59..8fb50080ac626a73d89a3e6b4fa2fe9d96c82edb 100644 (file)
--- 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 0b31b294b771390871786078eab7a848d2e98eef..edf537ad81d956696bf169417d7df09fc60a6868 100644 (file)
--- 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