From 2453c199370399024972fc6127abba0d91cad86b Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 10 Dec 2006 13:35:02 +0100 Subject: [PATCH] cleanups; rewrite uniq --- scm/lily-library.scm | 33 +++++++++++++++++++++------------ 1 file changed, 21 insertions(+), 12 deletions(-) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index fc8d291dec..283f9a1709 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -6,6 +6,8 @@ ;;;; (c) 1998--2006 Jan Nieuwenhuizen ;;;; Han-Wen Nienhuys +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; constants. (define-public X 0) (define-public Y 1) @@ -28,11 +30,17 @@ (define-safe-public DOUBLE-SHARP 4) (define-safe-public SEMI-TONE 2) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; moments + (define-public ZERO-MOMENT (ly:make-moment 0 1)) (define-public (moment-min a b) (if (ly:moment