From: Neil Puttock <n.puttock@gmail.com>
Date: Fri, 26 Jun 2009 17:57:15 +0000 (+0100)
Subject: Docs: compile fix.
X-Git-Tag: release/2.13.3-0~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f52c6edfcd36f05cf9be96b08a65d92f0ce54378;p=lilypond.git

Docs: compile fix.
---

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