release: 1.3.90

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index e4385c0eef5a451b22bfa76bf875eaf3dc3743fd..81afc034bf89a101fcc7caa6cd73b470f59ac749 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -723,7 +723,7 @@
 (define (sign x)
   (if (= x 0)
       1
-      (inexact->exact (/ x (abs x)))))
+      (if (< x 0) -1 1)))
 
 ;;;; AsciiScript as
 (define (as-scm action-name)