Move ambitus print callback to scheme.

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

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index e7f1d295d81ea98708163f173acf76e0f6067979..c24683a75ef1543d5a697f6db8c57907efc7d682 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -398,6 +398,9 @@ found."
 
 (define-public empty-interval '(+inf.0 . -inf.0))
 
+(define-public (symmetric-interval expr)
+  (cons (- expr) expr))
+
 (define-public (interval-length x)
   "Length of the number-pair X, when an interval"
   (max 0 (- (cdr x) (car x))))