From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 17 Dec 2006 14:28:54 +0000 (+0100)
Subject: Oops, settings are strings here.
X-Git-Tag: release/2.10.4-1~13^2~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c876df44653eeb5d0000226b9a71cf516d7e598b;p=lilypond.git

Oops, settings are strings here.
---

diff --git a/scm/backend-library.scm b/scm/backend-library.scm
index 02cd759ff9..6e45f05c6f 100644
--- a/scm/backend-library.scm
+++ b/scm/backend-library.scm
@@ -105,12 +105,12 @@
     ;;	    (string-append (basename name ".ps") "-page1.png" )))
   (let* ((verbose (ly:get-option 'verbose))
 	 (rename-page-1 #f)
-	 (pixmap-default 'png16m)
+	 (pixmap-default "png16m")
 	 (pixmap-setting (ly:get-option 'pixmap-format))
-	 (pixmap-format (if (or (not (eq pixmap-setting pixmap-default))
+	 (pixmap-format (if (or (not (equal? pixmap-setting pixmap-default))
 				(ps-has-color name))
 			    pixmap-setting
-			    'pnggray)))
+			    "pnggray")))
     (ly:message (_ "Converting to ~a...") "PNG")
     (make-ps-images name
 		    #:resolution resolution