From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 12 Dec 2006 13:38:43 +0000 (+0100)
Subject: uniq scoping bugfix
X-Git-Tag: release/2.11.2-1~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0ff88d8d86beb4b775268a699399be2a1c91faaa;p=lilypond.git

uniq scoping bugfix
---

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 283f9a1709..0d09beae53 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -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)