From 0ff88d8d86beb4b775268a699399be2a1c91faaa Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys 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