From: Mike Solomon <mike@apollinemike.com>
Date: Thu, 22 Sep 2011 11:53:52 +0000 (+0200)
Subject: Adds sane return value to stem::length after programming error.
X-Git-Tag: release/2.15.13-1~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=479fbddde9cc570b54e7be5798162ada05f279a2;p=lilypond.git

Adds sane return value to stem::length after programming error.
---

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 33a2df36a7..0fbe9ee3c9 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -78,8 +78,10 @@
          (beam (ly:grob-object grob 'beam)))
     (if (null? beam)
         (abs (- (ly:stem::calc-stem-end-position grob) beg))
-        (ly:programming-error
-          "stem::length called but will not be used for beamed stem."))))
+        (begin
+          (ly:programming-error
+            "stem::length called but will not be used for beamed stem.")
+          0.0))))
 
 (define-public (stem::pure-length grob beg end)
   (let* ((ss (ly:staff-symbol-staff-space grob))