SVG backend: use zero? for readability

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 20ce40b230e628dd3b80fdb024ebc4ec77239c0e..a54341b0df2ed37f357f1f49da8ad8db610d1544 100644 (file)
--- 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