SVG backend: nitpick: use unary negation

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 11223df43d12396af8fb6f524b47ee6717e71bb9..c916067bdfa38986141752fb193873d6af62e54f 100644 (file)
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -509,7 +509,7 @@
 ;; rotate around given point
 (define (setrotation ang x y)
   (ly:format "<g transform=\"rotate(~4f, ~4f, ~4f)\">\n"
-            (* -1 ang) x (* -1 y)))
+            (- ang) x (- y)))
 
 (define (text font string)
   (dispatch `(fontify ,font ,(entity 'tspan (string->entities string)))))