From: Patrick McCarty <pnorcks@gmail.com>
Date: Mon, 27 Jul 2009 23:48:32 +0000 (-0700)
Subject: SVG backend: use zero? for readability
X-Git-Tag: release/2.13.4-1~275
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f950aff5b1fb3e86b2be9e16c2099f0634008c83;p=lilypond.git

SVG backend: use zero? for readability
---

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 20ce40b230..a54341b0df 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -162,8 +162,8 @@
       (let* ((dx (car rest))
 	     (dy (cadr rest))
 	     (total-x (+ dx next-horiz-adv)))
-	(if (or (not (= 0 (inexact->exact total-x)))
-		(not (= 0 (inexact->exact dy))))
+	(if (or (not (zero? total-x))
+		(not (zero? dy)))
 	    (let ((x (ly:format "~4f" total-x))
 		  (y (ly:format "~4f" dy)))
 	      (set-attribute 'transform