From f950aff5b1fb3e86b2be9e16c2099f0634008c83 Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Mon, 27 Jul 2009 16:48:32 -0700 Subject: [PATCH] SVG backend: use zero? for readability --- scm/output-svg.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.5