lily/tuplet-number.cc (print): prevent stencil from being

garbage collected.

diff --git a/ChangeLog b/ChangeLog
index 5e8963831e63ab5471737ee40cece722f726e6c7..b300dac2c45508d6e9614709cb2385b03dd0ce7e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-06  Joe Neeman  <joeneeman@gmail.com>
+
+       * lily/tuplet-number.cc (print): prevent stencil from being
+       garbage collected.
+
 2006-06-05  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
        * scm/stencil.scm (write-system-signature): explicitly 

diff --git a/lily/tuplet-number.cc b/lily/tuplet-number.cc
index 97c49129b3109709be366a60f07f866b29bac58a..a68b99b0a5738c34793c1b5c232d4506ec0a680e 100644 (file)
--- a/lily/tuplet-number.cc
+++ b/lily/tuplet-number.cc
@@ -43,8 +43,9 @@ Tuplet_number::print (SCM smob)
       me->suicide ();
       return SCM_EOL;
     }
-  
-  Stencil *stc = unsmob_stencil (Text_interface::print (smob));
+
+  SCM stc_scm = Text_interface::print (smob);
+  Stencil *stc = unsmob_stencil (stc_scm);
 
   stc->align_to (X_AXIS, CENTER);
   stc->align_to (Y_AXIS, CENTER);
@@ -56,7 +57,7 @@ Tuplet_number::print (SCM smob)
 
   stc->translate ((points[RIGHT] + points[LEFT]) / 2);
   
-  return stc->smobbed_copy ();
+  return stc_scm;
 }