remove octave-duplicate.ly

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index e819bf653a574990051edad8671ed39c5a0250e4..65e40d0c2b4cfb7b6a0d6b060f56684f131599be 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -10,6 +10,7 @@
 
 (use-modules (ice-9 regex)
             (ice-9 safe)
+            (oop goops)
             (srfi srfi-1)  ; lists
             (srfi srfi-13)) ; strings
 
@@ -83,6 +84,9 @@
 
 (define-public ZERO-MOMENT (ly:make-moment 0 1)) 
 
+(define-public (moment-min a b)
+  (if (ly:moment<? a b) a b))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; lily specific variables.
 (define-public default-script-alist '())
@@ -433,3 +437,5 @@ L1 is copied, L2 not.
    (,symbol? . "symbol")
    (,vector? . "vector")
    ))
+
+