fix pure stem height for invisible stems.

diff --git a/lily/stem.cc b/lily/stem.cc
index 6757582869960d15ecd600493113f6af459a225c..89f656031855f1de44fb18caf559c1f2dc2d831d 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -236,14 +236,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);