From f52c6edfcd36f05cf9be96b08a65d92f0ce54378 Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Fri, 26 Jun 2009 18:57:15 +0100 Subject: [PATCH] Docs: compile fix. --- scm/lily-library.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index 6f6dc67a72..489921abcd 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -343,7 +343,7 @@ found." Example: (split-at-predicate < '(1 2 3 2 1)) ==> ((1 2 3) . (2 1))" (if (null? lst) (list lst) - (let ((i (list-index predicate (cdr lst) lst))) + (let ((i (list-index pred (cdr lst) lst))) (if i (cons (take lst (1+ i)) (drop lst (1+ i))) (list lst))))) -- 2.39.5