From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 17 Apr 2005 22:41:23 +0000 (+0000)
Subject: (process): return #f iso. #<undefined>. This
X-Git-Tag: release/2.5.20~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e69515dd98ead1ca7a8f644dd7a35d2d2aa9a717;p=lilypond.git

(process): return #f iso. #<undefined>. This
prevents #<undefined> leaking into GUILE-userspace.
---

diff --git a/ChangeLog b/ChangeLog
index 571e9e936e..68f8a806dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-18  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* lily/performance.cc (process): return #f iso. #<undefined>. This
+	prevents #<undefined> leaking into GUILE-userspace.
+
 2005-04-17  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* config.hh.in: remove HAVE_PANGO_FC_FONT_MAP_ADD_DECODER_FIND_FUNC
@@ -57,7 +62,7 @@
 	* framework-eps.scm: code added so that a macro \betweenLilyPondSystem
 	with one parameter can be defined in a LaTeX file when processed
 	by lilypond-book this will be evaluated between the systems of
-	a muti-system score. The parameter is the number of systems processed.
+	a multi-system score. The parameter is the number of systems processed.
 
 2005-04-16  Jan Nieuwenhuizen  <janneke@gnu.org>
 
diff --git a/lily/global-context-scheme.cc b/lily/global-context-scheme.cc
index 6f83fc2fc4..4f71756153 100644
--- a/lily/global-context-scheme.cc
+++ b/lily/global-context-scheme.cc
@@ -27,6 +27,7 @@ LY_DEFINE (ly_format_output, "ly:format-output",
 
   Music_output *output = g->get_output ();
   progress_indication ("\n");
+
   /* ugh, midi still wants outname  */
   return output->process (ly_scm2string (outname));
 }
diff --git a/lily/include/music-output.hh b/lily/include/music-output.hh
index 05915e794b..cb75cc7061 100644
--- a/lily/include/music-output.hh
+++ b/lily/include/music-output.hh
@@ -16,11 +16,8 @@
 class Music_output
 {
 public:
-  virtual SCM process (String)
-  {
-    return SCM_EOL;
-  }
-  virtual ~Music_output () {}
+  virtual SCM process (String); 
+  virtual ~Music_output ();
 };
 
 #endif /* MUSIC_OUTPUT_HH */
diff --git a/lily/include/performance.hh b/lily/include/performance.hh
index 596e877775..1d46cd8f66 100644
--- a/lily/include/performance.hh
+++ b/lily/include/performance.hh
@@ -27,7 +27,7 @@ public:
   SCM process (String);
 
   Link_array<Audio_staff> audio_staffs_;
-  Cons<Audio_element> *audio_elem_p_list_;
+  Cons<Audio_element> *audio_element_list_;
   Output_def *midi_;
 };
 
diff --git a/lily/music-output.cc b/lily/music-output.cc
new file mode 100644
index 0000000000..67b95303e4
--- /dev/null
+++ b/lily/music-output.cc
@@ -0,0 +1,25 @@
+/* 
+  music-output.cc --  implement Music_output
+  
+  source file of the GNU LilyPond music typesetter
+  
+  (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  
+*/
+
+#include "music-output.hh" 
+
+/*
+  Just stubs.
+ */
+SCM
+Music_output::process ()
+{
+  return SCM_EOL;
+}
+
+Music_output::~Music_output ()
+{
+  
+}
+  
diff --git a/lily/performance.cc b/lily/performance.cc
index 83a9b91048..f030631acc 100644
--- a/lily/performance.cc
+++ b/lily/performance.cc
@@ -26,12 +26,12 @@
 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;
 }