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 766bc01169ca7b905ccd6d445cb9864d03c2f964..622b919a322d31216606c6e7b634592acf271b9b 100644 (file)
--- 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)