Compile fix.

* system-start-text::calc-y-offset: return sane value for suicided grobs

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index b2d7bea66b5e52867d7e7b0a7d752708e72f4672..152f35c7cfe9e31131302ec5affd563e83229f05 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -786,21 +786,20 @@
 
     (if (and (pair? live-elts)
             (interval-sane? (ly:grob-extent grob system Y)))
-       (begin
-         (let get-extent ((lst live-elts))
-           (if (pair? lst)
-               (let ((axis-group (car lst)))
-
-                 (if (and (ly:spanner? axis-group)
-                          (equal? (ly:spanner-bound axis-group LEFT)
-                                  left-bound))
-                     (set! extent (add-point extent
-                                             (ly:grob-relative-coordinate
-                                              axis-group system Y))))
-                 (get-extent (cdr lst)))))
-         (+
-          (ly:self-alignment-interface::y-aligned-on-self grob)
-          (interval-center extent)))
+       (let get-extent ((lst live-elts))
+         (if (pair? lst)
+             (let ((axis-group (car lst)))
+
+               (if (and (ly:spanner? axis-group)
+                        (equal? (ly:spanner-bound axis-group LEFT)
+                                left-bound))
+                   (set! extent (add-point extent
+                                           (ly:grob-relative-coordinate
+                                            axis-group system Y))))
+               (get-extent (cdr lst)))))
        ;; no live axis group(s) for this instrument name -> remove from system
-       (ly:grob-suicide! grob))))
+       (ly:grob-suicide! grob))
 
+    (+
+     (ly:self-alignment-interface::y-aligned-on-self grob)
+     (interval-center extent))))