From 0ff88d8d86beb4b775268a699399be2a1c91faaa Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 12 Dec 2006 14:38:43 +0100
Subject: [PATCH] uniq scoping bugfix

---
 scm/lily-library.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.39.5