]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/performance.cc
(process): return #f iso. #<undefined>. This
[lilypond.git] / lily / performance.cc
index 83a9b910480ab8616d7520943fa6d528176531c8..f030631acc5643d518982bcde220f5389123a895 100644 (file)
 Performance::Performance ()
 {
   midi_ = 0;
-  audio_elem_p_list_ = 0;
+  audio_element_list_ = 0;
 }
 
 Performance::~Performance ()
 {
-  delete audio_elem_p_list_;
+  delete audio_element_list_;
 }
 
 void
@@ -146,7 +146,7 @@ Performance::add_element (Audio_element *p)
     {
       audio_staffs_.push (s);
     }
-  audio_elem_p_list_ = new Killing_cons<Audio_element> (p, audio_elem_p_list_);
+  audio_element_list_ = new Killing_cons<Audio_element> (p, audio_element_list_);
 }
 
 SCM
@@ -165,5 +165,5 @@ Performance::process (String out)
 
   output (midi_stream);
   progress_indication ("\n");
-  return SCM_UNDEFINED;
+  return SCM_BOOL_F;
 }