From: hanwen <hanwen>
Date: Thu, 26 Jan 2006 00:25:23 +0000 (+0000)
Subject: (annotate-space-left): thinko.
X-Git-Tag: release/2.7.38^2~274
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3ab474a2001a8955c9ca64f68cb72f00a2b81807;p=lilypond.git

(annotate-space-left): thinko.
(annotate-page): more thinkos.
---

diff --git a/ChangeLog b/ChangeLog
index 9856ec6c3a..1f82b9c2d4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2006-01-26  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* scm/page.scm (annotate-space-left): thinko.
+	(annotate-page): more thinkos.
 
 2006-01-25  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
diff --git a/scm/page.scm b/scm/page.scm
index 49b64df83e..766db7911e 100644
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -70,7 +70,7 @@
   (map (lambda (ps) (ly:prob-property ps 'number))
        (page-lines node)))
 
-(define (annotate-page stencil layout)
+(define (annotate-page layout stencil)
   (let*
       ((topmargin (ly:output-def-lookup layout 'topmargin))
        (vsize (ly:output-def-lookup layout 'vsize))