From 460867a0a06d2908e0d26e7cfbe12ee85ea47a06 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 26 Jan 2006 00:21:56 +0000 Subject: [PATCH] (annotate-space-left): thinko. --- ChangeLog | 4 ++++ lily/paper-book-scheme.cc | 4 +++- scm/page.scm | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 922fc191c3..9856ec6c3a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2006-01-26 Han-Wen Nienhuys + + * scm/page.scm (annotate-space-left): thinko. + 2006-01-25 Han-Wen Nienhuys * 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 6d2d983bc6..bc1c7007b4 100644 --- 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 7eb5cb69ae..49b64df83e 100644 --- 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)) -- 2.39.2