From: fred <fred>
Date: Tue, 26 Mar 2002 22:43:49 +0000 (+0000)
Subject: lilypond-1.3.7
X-Git-Tag: release/1.5.59~1969
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=563c845f556448f2244033205ee21cb80a6b3dec;p=lilypond.git

lilypond-1.3.7
---

diff --git a/CHANGES b/CHANGES
index 97960cac4e..1f9988ce1f 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,31 @@
+
+pl 6.uu2
+	- bf: PS font selecting.
+
+pl 6.uu1
+	- bf: ls-latex
+	- mudela-book --no-pictures
+	- bf: ly2dvi
+	- convert-mudela: beamAuto moment syntax. 
+
+pl 6.jcn3
+	- fixed scm output
+
+pl 6.jcn2
+	- half-baken ly-gulp-file in scm
+	- resurrected scm output through guile
+
+pl 5.mb1
+	- bf: version of init.sly, init.fly
+	- Clarify necessary version of texinfo
+	- bf: texi files, minor errors and syntax compatible with 
+	  older makeinfo
+
+pl 6.jcn1
+	- bf: scm output
+
+*******
+
 pl 5.hwn2
 	- Bach preludes: mutopification
 	- dots are Directional_element too; use \property dotDirection
diff --git a/lily/stem-info.cc b/lily/stem-info.cc
index d7e80d2425..6269efb796 100644
--- a/lily/stem-info.cc
+++ b/lily/stem-info.cc
@@ -10,7 +10,7 @@
 #include "proto.hh"
 #include "misc.hh"
 #include "cross-staff.hh"
-
+#include "debug.hh"
 #include "stem.hh"
 #include "paper-def.hh"
 #include "lookup.hh"
@@ -41,8 +41,16 @@ Stem_info::Stem_info (Stem*s, int mult)
   set_direction (stem_l_->get_direction ());
   SCM bd = stem_l_->remove_elt_property ("beam-dir");
   
-  beam_dir_ = gh_scm2int (bd);
-
+  if (gh_number_p (bd))
+    {
+      beam_dir_ = gh_scm2int (bd);
+    }
+  else
+    {
+      programming_error ("Beam direction not set."); 
+      beam_dir_ = UP;		//  GURAUGRNAGURAGU! urg !
+    }
+  
   Paper_def* paper_l = stem_l_->paper_l ();
   Real internote_f = stem_l_->staff_line_leading_f ()/2;
   Real interbeam_f = paper_l->interbeam_f (mult_i_);