From: David Kastrup <dak@gnu.org>
Date: Sat, 23 Jun 2012 13:59:42 +0000 (+0200)
Subject: Scheme-callable functions should never return SCM_UNDEFINED
X-Git-Tag: release/2.15.41-1~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e97c1143fa6c1f3411a3d97222711c28f9be2164;p=lilypond.git

Scheme-callable functions should never return SCM_UNDEFINED
---

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;
 }