*** empty log message ***

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index cec78e35ee377b77959e27ed5a6b19856783d3fd..9ceb5333ed322b51231d33c066404b21a5db8127 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -77,6 +77,8 @@
 (define-public DOUBLE-SHARP 4)
 (define-public SEMI-TONE 2)
 
+(define-public ZERO-MOMENT (ly:make-moment 0 1)) 
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; lily specific variables.
 (define-public default-script-alist '())
@@ -127,6 +129,14 @@
            handle
            (chain-assoc x (cdr alist-list))))))
 
+(define (chain-assoc-get x alist-list default)
+  (if (null? alist-list)
+      default
+      (let* ((handle (assoc x (car alist-list))))
+       (if (pair? handle)
+           (cdr handle)
+           (chain-assoc-get x (cdr alist-list) default)))))
+
 
 (define (map-alist-vals func list)
   "map FUNC over the vals of  LIST, leaving the keys."