catch GUILE errors

[lilypond.git] / lily / time-scaled-music.cc

diff --git a/lily/time-scaled-music.cc b/lily/time-scaled-music.cc
index 74559e404a882f6b3723e7b827531f02974cca2c..2b79cc390b9eef526fbc7c2cbc0a198e7086df88 100644 (file)
--- a/lily/time-scaled-music.cc
+++ b/lily/time-scaled-music.cc
@@ -3,24 +3,26 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1998--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
 #include "time-scaled-music.hh"
 #include "time-scaled-music-iterator.hh"
 
-Time_scaled_music::Time_scaled_music (int n, int d,Music *mp)
-  : Music_wrapper (mp)
+Time_scaled_music::Time_scaled_music (SCM l)
+  : Music_wrapper (l)
 {
-  set_mus_property ("numerator", gh_int2scm (n));
-  set_mus_property ("denominator", gh_int2scm (d));
   set_mus_property ("iterator-ctor",
                    Time_scaled_music_iterator::constructor_cxx_function);
   
-  compress (Moment (n,d));
 }
 
+Time_scaled_music::Time_scaled_music ()
+{
+  
+}
 
 
 
+ADD_MUSIC (Time_scaled_music);