]> git.donarmstrong.com Git - lilypond.git/commitdiff
uniq scoping bugfix
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Tue, 12 Dec 2006 13:38:43 +0000 (14:38 +0100)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Tue, 12 Dec 2006 13:38:43 +0000 (14:38 +0100)
scm/lily-library.scm

index 283f9a17090643f900882f46a821e4b9ed32f0dc..0d09beae53b5c6f9e994c10cbc5dbe0cd192eb47 100644 (file)
@@ -316,7 +316,7 @@ found."
   "Return list of elements in A that are not in B."
   (lset-difference eq? a b))
 
-(define (uniq lst)
+(define-public (uniq-list lst)
   "Uniq LST, assuming that it is sorted"
 
   (reverse! 
@@ -335,6 +335,7 @@ found."
   L1 is copied, L2 not.
 
   (split-at-predicate (lambda (x y) (= (- y x) 2)) '(1 3 5 9 11) (cons '() '()))"
  ;; " Emacs is broken
 
  (define (inner-split predicate lst acc)