(annotate-space-left): thinko.

diff --git a/ChangeLog b/ChangeLog
index 922fc191c3d7703b53e17f75dda7febe384d82fe..9856ec6c3acfeb397fddc84d5994a6f9ea59ab9a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-26  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * scm/page.scm (annotate-space-left): thinko.
+
 2006-01-25  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * scm/layout-page-layout.scm (write-page-breaks): record tweaks

diff --git a/lily/paper-book-scheme.cc b/lily/paper-book-scheme.cc
index 6d2d983bc6f4ce1e2db7c71bdb8dabc36b35f347..bc1c7007b44effc9f1e6c38a0401b7cd0ce38115 100644 (file)
--- a/lily/paper-book-scheme.cc
+++ b/lily/paper-book-scheme.cc
@@ -49,5 +49,7 @@ LY_DEFINE (ly_paper_book_paper, "ly:paper-book-paper",
           1, 0, 0, (SCM pb),
           "Return pages in book PB.")
 {
-  return unsmob_paper_book (pb)->paper_->self_scm ();
+  Paper_book *pbook = unsmob_paper_book (pb);
+  SCM_ASSERT_TYPE(pbook, pb, SCM_ARG1, __FUNCTION__, "Paper_book");
+  return pbook->paper_->self_scm ();
 }

diff --git a/scm/page.scm b/scm/page.scm
index 7eb5cb69ae31a9370433f47d13c6d95171d3f845..49b64df83e5fcc1b2b529a04be9bb25a4867e1b6 100644 (file)
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -107,7 +107,7 @@
 (define (annotate-space-left page)
   (let*
       ((p-book (page-property page 'paper-book))
-       (layout (ly:paper-book-paper page))
+       (layout (ly:paper-book-paper p-book))
        (arrow (annotate-y-interval layout
                                   "space left"
                                   (cons (- (page-property page 'bottom-edge))