(before_line_breaking): do not return

SCM_UNDEFINED to Scheme.

diff --git a/ChangeLog b/ChangeLog
index 851136274862da451b268113bbd1602010dc108c..2c0c3e6174a78df58bc6bdc8f872d2b50a26e0a5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,12 @@
+2004-06-15  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+       * lily/tuplet-bracket.cc (before_line_breaking): do not return
+       SCM_UNDEFINED to Scheme.
+
 2004-06-14  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
        * lily/book.cc: remove Book::to_stencil().
+       (process): whoops. Score::book_rendering returns vector, not list.
 
        * scripts/convert-ly.py (conv): remove \notes.
        apply to input examples.

diff --git a/lily/context-scheme.cc b/lily/context-scheme.cc
index f6a03404fd850a8bf014dcf8c67ee4fd55e16ca7..cbedf5ea3c484825d47fa5ae34fd57cba3aa428e 100644 (file)
--- a/lily/context-scheme.cc
+++ b/lily/context-scheme.cc
@@ -47,7 +47,7 @@ LY_DEFINE (ly_context_pushpop_property, "ly:context-pushpop-property",
 
   execute_pushpop_property (tg, grob, eltprop, val);
 
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 LY_DEFINE (ly_context_property, "ly:context-property",

diff --git a/lily/grob-scheme.cc b/lily/grob-scheme.cc
index 05eedf65127ed08a170fb86105e3e8190af3a28a..7b37fecab7ac78b4db36720f85da0376191522fe 100644 (file)
--- a/lily/grob-scheme.cc
+++ b/lily/grob-scheme.cc
@@ -156,7 +156,7 @@ LY_DEFINE (ly_grob_suicide, "ly:grob-suicide",
   SCM_ASSERT_TYPE (me, g, SCM_ARG1, __FUNCTION__, "grob");
 
   me->suicide ();
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 LY_DEFINE (ly_grob_translate_axis_x, "ly:grob-translate-axis!",
@@ -169,7 +169,7 @@ LY_DEFINE (ly_grob_translate_axis_x, "ly:grob-translate-axis!",
   SCM_ASSERT_TYPE (is_axis (a), a, SCM_ARG3, __FUNCTION__, "axis");
 
   me->translate_axis (ly_scm2double (d), Axis (ly_scm2int (a)));
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 LY_DEFINE (ly_spanner_p, "ly:spanner?",

diff --git a/lily/input-smob.cc b/lily/input-smob.cc
index 595ee717dac934135ade3cf6bf3870402fdb0ea2..798e61d51ac9c405b0f1a4463789801a9c2ddaa1 100644 (file)
--- a/lily/input-smob.cc
+++ b/lily/input-smob.cc
@@ -90,7 +90,7 @@ LY_DEFINE (ly_input_message, "ly:input-message", 2, 0, 0, (SCM sip, SCM msg),
   String m = ly_scm2string (msg);
   ip->message (m);
 
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 /*

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index 247a456dc375a46fc896324d13765bd28777ff33..f90176be4ff8b2dd8a2d7865f0adbc6b891b5f57 100644 (file)
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -84,7 +84,7 @@ LY_DEFINE (ly_import_module, "ly:import-module",
   SCM_VALIDATE_MODULE (1, src);
   scm_internal_hash_fold ((Hash_cl_func) &ly_module_define, (void*) dest,
                          SCM_EOL, SCM_MODULE_OBARRAY (src));
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 static SCM

diff --git a/lily/my-lily-parser.cc b/lily/my-lily-parser.cc
index bd9c938a3c1e97367b8c1a406dc45f11248268c0..bd8939af9d5bca92d663060794895f8646853ac0 100644 (file)
--- a/lily/my-lily-parser.cc
+++ b/lily/my-lily-parser.cc
@@ -442,7 +442,7 @@ LY_DEFINE (ly_parser_print_score, "ly:parser-print-score",
                         header, os);
       scm_gc_unprotect_object (paper->self_scm ());
     }
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 
@@ -493,6 +493,6 @@ LY_DEFINE (ly_parser_print_book, "ly:parser-print-book",
   scm_gc_unprotect_object (paper->self_scm ());
   scm_gc_unprotect_object (pb->self_scm ());
 
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 

diff --git a/lily/stencil-scheme.cc b/lily/stencil-scheme.cc
index 8f069bba4519e7629ea2561800a7fedc7397b1b1..0848c1afc3eac93e5161ff5ca7f60b576610d1c8 100644 (file)
--- a/lily/stencil-scheme.cc
+++ b/lily/stencil-scheme.cc
@@ -30,7 +30,7 @@ LY_DEFINE (ly_stencil_set_extent_x, "ly:stencil-set-extent!",
   Interval iv = ly_scm2interval (np);
   s->dim_[Axis (ly_scm2int (axis))] = iv;
 
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 LY_DEFINE (ly_translate_stencil_axis, "ly:stencil-translate-axis",

diff --git a/lily/tuplet-bracket.cc b/lily/tuplet-bracket.cc
index 7a56f9c5d473fe06a603c5fc6573c7306a6c2f47..493cf23998174ff967fafeab6ce918569922cdf4 100644 (file)
--- a/lily/tuplet-bracket.cc
+++ b/lily/tuplet-bracket.cc
@@ -426,7 +426,7 @@ Tuplet_bracket::before_line_breaking (SCM smob)
       if (b)
        me->add_dependency (b);
     }
-  return SCM_UNDEFINED;
+  return SCM_UNSPECIFIED;
 }
 
 MAKE_SCHEME_CALLBACK (Tuplet_bracket,after_line_breaking,1);