From 479fbddde9cc570b54e7be5798162ada05f279a2 Mon Sep 17 00:00:00 2001 From: Mike Solomon Date: Thu, 22 Sep 2011 13:53:52 +0200 Subject: [PATCH] Adds sane return value to stem::length after programming error. --- scm/output-lib.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)) -- 2.39.5