Scheme-callable functions should never return SCM_UNDEFINED

diff --git a/lily/dispatcher-scheme.cc b/lily/dispatcher-scheme.cc
index 6d930b944e2e2d958ee6c6f08bc3380144ba076f..a87074e799bd6eecfcae58819300390834bf3a22 100644 (file)
--- 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 87f6902943a83a00616e2e10f53e5bf0bcf9b3ca..ad1753251f6c02265535daa261ef3401b5b8dccf 100644 (file)
--- 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;
 }