* lily/relocate.cc (prefix_relocation): allow "current"

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 2c364187b377e49e0eecd729b98989ed3103b7c4..3ad2d2764b865c17241e2d568315c5c7e8dee2ca 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -325,7 +325,9 @@ found."
 
 (define-public (interval-center x)
   "Center the number-pair X, when an interval"
-  (/ (+ (car x) (cdr x)) 2))
+  (if (interval-empty? x)
+      0.0
+      (/ (+ (car x) (cdr x)) 2)))
 
 (define-public interval-start car)
 (define-public interval-end cdr)