From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Mon, 28 Mar 2016 21:04:26 +0000 (-0700)
Subject: gtk/fix-demo.scm: Simplify finding the sample conses.png image.
X-Git-Tag: mit-scheme-pucked-9.2.12~351
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cfd2f89f6f1afb9aee2bff17b8d8463528e7a629;p=mit-scheme.git

gtk/fix-demo.scm: Simplify finding the sample conses.png image.
---

diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm
index 766bc0116..622b919a3 100644
--- a/src/gtk/fix-demo.scm
+++ b/src/gtk/fix-demo.scm
@@ -112,12 +112,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	  (text (make-simple-text-ink))
 	  (box (make-rectangle-ink))
 	  (image (make-image-ink-from-file
-		  (merge-pathnames "conses.png"
-				   (or
-				    ;; After normal install.
-				    (system-library-directory-pathname "gtk")
-				    ;; During testing.
-				    (system-library-directory-pathname "")))))
+		  (system-library-pathname "conses.png")))
 	  (surface (make-surface-ink 40 40)))
 
       (set-line-ink! line1 140 150 200 150)