X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-lib.scm;h=152f35c7cfe9e31131302ec5affd563e83229f05;hb=2d300cfe304b2143aef7bcf2dfc82c6455be032d;hp=b2d7bea66b5e52867d7e7b0a7d752708e72f4672;hpb=b94b32c5a3b047fa98e7784532df1aab88015025;p=lilypond.git

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index b2d7bea66b..152f35c7cf 100644
--- 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))))