(get_line): extract page-penalty from the left

[lilypond.git] / lily / paper-book.cc

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index 9836726869f3ef460bb1e5c18fb1d6ee61d5b8cf..39c3f5f7aa8e9251f723014b3b98be442232b51b 100644 (file)
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -420,11 +420,11 @@ Paper_book::pages ()
   SCM all = lines ();
   SCM proc = paper->c_variable ("page-breaking");
   SCM pages = scm_apply_0 (proc, scm_list_n (all,
-                                             self_scm (),
-                                             scm_make_real (text_height),
-                                             scm_make_real (-copy_height),
-                                             scm_make_real (-tag_height),
-                                             SCM_UNDEFINED));
+                                            self_scm (),
+                                            scm_make_real (text_height),
+                                            scm_make_real (-copy_height),
+                                            scm_make_real (-tag_height),
+                                            SCM_UNDEFINED));
 
 
   SCM *page_tail = &pages_;