lilypond-1.3.94

diff --git a/lily/stem-tremolo.cc b/lily/stem-tremolo.cc
index 11e2441645fee3f7c424308745275c049058e5fc..2db2edad8aae981d3791a9f4ca7c6b7e08b4ac27 100644 (file)
--- a/lily/stem-tremolo.cc
+++ b/lily/stem-tremolo.cc
@@ -34,17 +34,23 @@ Stem_tremolo::has_interface (Score_element *me)
   return me->has_interface (ly_symbol2scm ("stem-tremolo"));
 }
 
+MAKE_SCHEME_CALLBACK(Stem_tremolo,dim_callback,2);
 
-Interval
-Stem_tremolo::dim_callback (Score_element * se, Axis )
+/*
+  todo: init with cons. 
+ */
+SCM
+Stem_tremolo::dim_callback (SCM e, SCM )
 {
+  Score_element * se = unsmob_element (e);
+  
   Real space = Staff_symbol_referencer::staff_space (se);
-  return Interval (-space, space);
+  return ly_interval2scm ( Interval (-space, space));
 }
 
 
 
-MAKE_SCHEME_CALLBACK(Stem_tremolo,brew_molecule);
+MAKE_SCHEME_CALLBACK(Stem_tremolo,brew_molecule,1);
 SCM
 Stem_tremolo::brew_molecule (SCM smob)
 {

diff --git a/lily/translator.cc b/lily/translator.cc
index 905266cbeab94cdc7e07db923ebfa4f7a7935c6d..4946af8027e4be13812f60cc3d43cb8d627e64e1 100644 (file)
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -88,10 +88,6 @@ Translator::do_add_processing ()
 {
 }
 
-
-
-
-
 void
 Translator::creation_processing ()
 {
@@ -120,11 +116,8 @@ Translator::removal_processing ()
     return;
   creation_processing ();
   do_removal_processing ();
-  // elegancy ...
-  // status_ = ORPHAN;
 }
 
-
 bool
 Translator::try_music (Music * r)
 {