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