From e97c1143fa6c1f3411a3d97222711c28f9be2164 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sat, 23 Jun 2012 15:59:42 +0200
Subject: [PATCH] Scheme-callable functions should never return SCM_UNDEFINED

---
 lily/dispatcher-scheme.cc | 6 +++---
 lily/pitch-scheme.cc      | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lily/dispatcher-scheme.cc b/lily/dispatcher-scheme.cc
index 6d930b944e..a87074e799 100644
--- a/lily/dispatcher-scheme.cc
+++ b/lily/dispatcher-scheme.cc
@@ -38,7 +38,7 @@ LY_DEFINE (ly_connect_dispatchers, "ly:connect-dispatchers",
 
   t->register_as_listener (f);
 
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 LY_DEFINE (ly_add_listener, "ly:add-listener",
@@ -60,7 +60,7 @@ LY_DEFINE (ly_add_listener, "ly:add-listener",
       d->add_listener (*l, sym);
     }
 
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 LY_DEFINE (ly_listened_event_types, "ly:listened-event-types",
@@ -104,5 +104,5 @@ LY_DEFINE (ly_broadcast, "ly:broadcast",
 
   LY_ASSERT_SMOB (Stream_event, ev, 2);
   d->broadcast (e);
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
diff --git a/lily/pitch-scheme.cc b/lily/pitch-scheme.cc
index 87f6902943..ad1753251f 100644
--- a/lily/pitch-scheme.cc
+++ b/lily/pitch-scheme.cc
@@ -174,5 +174,5 @@ LY_DEFINE (ly_set_middle_C_x, "ly:set-middle-C!",
     clef_pos = robust_scm2int (cue_pos, 0);
 
   c->set_property (ly_symbol2scm ("middleCPosition"), scm_from_int (clef_pos + offset));
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
-- 
2.39.5