+
+LY_DEFINE (ly_minimal_breaking, "ly:minimal-breaking",
+ 1, 0, 0, (SCM pb),
+ "Break (pages and lines) the @code{Paper_book} object @var{pb}"
+ " without looking for optimal spacing: stack as many lines on"
+ " a page before moving to the next one.")
+{
+ Minimal_page_breaking b (unsmob_paper_book (pb));
+ return b.solve ();
+}