(annotate-space-left): thinko.

(annotate-page): more thinkos.

diff --git a/ChangeLog b/ChangeLog
index 9856ec6c3acfeb397fddc84d5994a6f9ea59ab9a..1f82b9c2d4cfeccb7b67d7060109dc8549caf294 100644 (file)
--- 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 49b64df83e5fcc1b2b529a04be9bb25a4867e1b6..766db7911e3f6ea5f63c1b976323afa37771d7d7 100644 (file)
--- 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))