fix pure stem height for invisible stems.

diff --git a/lily/stem.cc b/lily/stem.cc
index a7c864b8b2a50cc0da044275c89650507421a047..364467de5adb907bd65ced58084d16c80e5e6f23 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -235,14 +235,17 @@ Stem::pure_height (SCM smob, SCM start, SCM end)
 {
   (void) start;
   (void) end;
-  
-  
+
   Grob *me = unsmob_grob (smob);
+  Interval iv;
+
+  if (!is_normal_stem (me))
+    return ly_interval2scm (iv);
+  
   Real ss = Staff_symbol_referencer::staff_space (me);
   Real len = scm_to_double (calc_length (smob)) * ss / 2;
   Direction dir = get_grob_direction (me);
 
-  Interval iv;
   Interval hp = head_positions (me);
   if (dir == UP)
     iv = Interval (0, len);