From: fred <fred>
Date: Tue, 26 Mar 2002 23:56:57 +0000 (+0000)
Subject: lilypond-1.3.94
X-Git-Tag: release/1.5.59~1258
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5cea0218a7e55714808a62ec29ab22a2e2cf2bd7;p=lilypond.git

lilypond-1.3.94
---

diff --git a/lily/stem-tremolo.cc b/lily/stem-tremolo.cc
index 11e2441645..2db2edad8a 100644
--- 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 905266cbea..4946af8027 100644
--- 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)
 {