(set_spacing_rods): new

[lilypond.git] / lily / repeat-acknowledge-engraver.cc

diff --git a/lily/repeat-acknowledge-engraver.cc b/lily/repeat-acknowledge-engraver.cc
index 81b578572014f5db9c44be2a5b288a636fc74de4..5978c0de26f37a57ab8b1b7909d47ca6ba3b9fb2 100644 (file)
--- a/lily/repeat-acknowledge-engraver.cc
+++ b/lily/repeat-acknowledge-engraver.cc
@@ -1,9 +1,9 @@
 /*   
-  repeat-acknowledge-engraver.cc --  implement Repeat_acknowledge_engraver
+  repeat-acknowledge-engraver.cc -- implement Repeat_acknowledge_engraver
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
@@ -12,7 +12,6 @@
 #include "context.hh"
 #include "repeated-music.hh"
 
-
 /*
   Objective:
 
@@ -74,14 +73,14 @@ Repeat_acknowledge_engraver::process_music ()
   bool volta_found = false;
   while (scm_is_pair (cs))
     {
-      SCM command = ly_car (cs);
+      SCM command = scm_car (cs);
       if (command == ly_symbol2scm ("start-repeat"))
        start = true;
       else if (command == ly_symbol2scm ("end-repeat"))
        end = true;
-      else if (scm_is_pair (command) && ly_car (command) == ly_symbol2scm ("volta"))
+      else if (scm_is_pair (command) && scm_car (command) == ly_symbol2scm ("volta"))
        volta_found = true;
-      cs = ly_cdr (cs);      
+      cs = scm_cdr (cs);      
     }
 
   if (start && end)
@@ -110,7 +109,7 @@ Repeat_acknowledge_engraver::process_music ()
     }
 }
 
-ENTER_DESCRIPTION (Repeat_acknowledge_engraver,
+ADD_TRANSLATOR (Repeat_acknowledge_engraver,
 /* descr */       "Acknowledge repeated music, and convert the contents of "
 "repeatCommands ainto an appropriate setting for whichBar.",
 /* creats*/       "",