From e5d3b26c6f280864118a14f35e7a5aa2be10b477 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Mon, 14 Jun 2004 21:48:58 +0000
Subject: [PATCH] * lily/book.cc: remove Book::to_stencil(). (process): whoops.
 Score::book_rendering returns vector, not list.

* lily/paper-book.cc (output): load framework module
scm_c_resolve_module().
---
 input/regression/newaddlyrics.ly |  7 -------
 lily/beam.cc                     |  2 +-
 lily/book.cc                     |  2 +-
 lily/score.cc                    | 12 +++++++++---
 4 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/input/regression/newaddlyrics.ly b/input/regression/newaddlyrics.ly
index 91065b3d1f..6011d3c194 100644
--- a/input/regression/newaddlyrics.ly
+++ b/input/regression/newaddlyrics.ly
@@ -4,13 +4,6 @@
     
 }
 
-%% FIXME:
-%% THIS does not parse:
-%\new PianoStaff <<
-
-%% and THIS: gives incorrect results (all lyrics below pianostaff)
-%\context PianoStaff <<
-
 %% only this works as advertised...
 <<
     \new Staff \relative {
diff --git a/lily/beam.cc b/lily/beam.cc
index 6cc0a3a717..7a9eeecb9f 100644
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -548,7 +548,7 @@ Beam::get_default_dir (Grob *me)
   Link_array<Grob> stems=
 	Pointer_group_interface__extract_grobs (me, (Grob*)0, "stems");
 
-  for (int i=0; i <stems.size (); i++)
+  for (int i=0; i < stems.size (); i++)
     do {
       Grob *s = stems[i];
       Direction sd = get_grob_direction (s);
diff --git a/lily/book.cc b/lily/book.cc
index e8caa730d7..7387d645d6 100644
--- a/lily/book.cc
+++ b/lily/book.cc
@@ -83,7 +83,7 @@ Book::process (String outname, Output_def *default_def)
       
       /* If the score is empty, generate no output.  Should we
 	 do titling?  */
-      if (ly_c_pair_p (systems))
+      if (SCM_NFALSEP(scm_vector_p (systems)))
 	{
 	  Score_lines sc;
 	  sc.lines_ = systems;
diff --git a/lily/score.cc b/lily/score.cc
index a86868d965..86eccf3e6e 100644
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -26,7 +26,6 @@
 #include "score.hh"
 #include "warn.hh"
 
-/*  TODO: junkme.  */
 Score::Score ()
   : Input ()
 {
@@ -205,7 +204,13 @@ default_rendering (SCM music, SCM outdef,
   scm_remember_upto_here_1 (scaled_bookdef);
 }
 
-/*  PAPERBOOK should be scaled already.  */
+/*
+Format score, return systems. OUTNAME is still passed to create a midi
+file.
+
+PAPERBOOK should be scaled already.
+
+*/
 SCM
 Score::book_rendering (String outname,
 		       Output_def *paperbook,
@@ -254,7 +259,8 @@ LY_DEFINE (ly_score_bookify, "ly:score-bookify",
 	   "Return @var{score_smob} encapsulated in a Book object. Set "
 	   "@var{header} as book level header.")
 {
-  SCM_ASSERT_TYPE (unsmob_score (score_smob), score_smob, SCM_ARG1, __FUNCTION__, "score_smob");
+  SCM_ASSERT_TYPE (unsmob_score (score_smob), score_smob,
+		   SCM_ARG1, __FUNCTION__, "score_smob");
   
   Score *score = unsmob_score (score_smob);
   Book *book = new Book;
-- 
2.39.5