From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Mon, 8 Sep 2014 18:27:56 +0000 (-0700)
Subject: gtk-screen: Fix testing to use new fluid library-directory-path.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=795ba283ea1050cd18d99fad23e5a30da78be17b;p=mit-scheme.git

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 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