* lily/output-def-scheme.cc: new file.

[lilypond.git] / lily / unfolded-repeat-iterator.cc

diff --git a/lily/unfolded-repeat-iterator.cc b/lily/unfolded-repeat-iterator.cc
index d4636778c9cc457f44405dd848d22eb1a0a5d071..04bb8005013b6467aed58a25e694259c56dcdeb0 100644 (file)
--- a/lily/unfolded-repeat-iterator.cc
+++ b/lily/unfolded-repeat-iterator.cc
@@ -7,7 +7,6 @@ source file of the GNU LilyPond music typesetter
 (c) 2002--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
-
 #include "music.hh"
 #include "sequential-iterator.hh"
 #include "context.hh"
@@ -30,7 +29,7 @@ Unfolded_repeat_iterator::get_music_list () const
   SCM body = get_music ()->get_property ("element");
   SCM alts = get_music ()->get_property ("elements");
   int alt_count = scm_ilength (alts);
-  int rep_count = ly_scm2int (get_music ()->get_property ("repeat-count"));
+  int rep_count = scm_to_int (get_music ()->get_property ("repeat-count"));
 
   for (int i = 0; i < rep_count; i++)
     {
@@ -41,11 +40,11 @@ Unfolded_repeat_iterator::get_music_list () const
 
       if (alt_count)
        {
-         *tail = scm_cons (ly_car (alts), SCM_EOL);
+         *tail = scm_cons (scm_car (alts), SCM_EOL);
          tail = SCM_CDRLOC (*tail);
          if (i >= rep_count - alt_count)
            
-           alts = ly_cdr (alts);
+           alts = scm_cdr (alts);
        }      
     }
 
@@ -74,7 +73,7 @@ protected:
 
 Volta_repeat_iterator::Volta_repeat_iterator ()
 {
-  done_count_ = alt_count_ = rep_count_= 0;
+  done_count_ = alt_count_ = rep_count_ = 0;
   first_time_ = true;
 }
 
@@ -93,7 +92,7 @@ Volta_repeat_iterator::construct_children ()
   SCM alts = get_music ()->get_property ("elements");
 
   alt_count_ = scm_ilength (alts);
-  rep_count_ = ly_scm2int (get_music ()->get_property ("repeat-count"));
+  rep_count_ = scm_to_int (get_music ()->get_property ("repeat-count"));
   done_count_ = 0;
 }
 
@@ -109,7 +108,7 @@ Volta_repeat_iterator::add_repeat_command (SCM what)
 
   Context * where = get_outlet ()->where_defined (reps);
   if (where
-      && current_reps == SCM_EOL || is_pair (current_reps))
+      && current_reps == SCM_EOL || scm_is_pair (current_reps))
     {
       current_reps = scm_cons (what, current_reps);
       where->internal_set_property (reps, current_reps);