Issue 3666: Format error message for argument errors more nicely

[lilypond.git] / scm / time-signature-settings.scm

diff --git a/scm/time-signature-settings.scm b/scm/time-signature-settings.scm
index e171149ec4cd4a272ecb327f820002afe7abcace..82e22fe59197e97ae601849beccbcafa7e495626 100644 (file)
--- a/scm/time-signature-settings.scm
+++ b/scm/time-signature-settings.scm
@@ -313,10 +313,10 @@ a fresh copy of the list-head is made."
          (nums (reverse (cdr revargs))))
     (make-override-markup '(baseline-skip . 0)
                           (make-number-markup
-                           (make-left-column-markup (list
-                                                     (make-center-column-markup (list
-                                                                                 (make-line-markup (insert-markups nums "+"))
-                                                                                 den))))))))
+                           (make-left-column-markup
+                            (list (make-center-column-markup
+                                   (list (make-line-markup (insert-markups nums "+"))
+                                         den))))))))
 
 (define (format-complex-compound-time time-sig)
   (make-override-markup '(baseline-skip . 0)
@@ -381,8 +381,8 @@ a fresh copy of the list-head is made."
   ;; Normalize to given beat, extract the beats and join them to one list
   (let* ((beat (calculate-compound-base-beat-full time-sig))
          (normalized (map (lambda (f) (normalize-fraction f beat)) time-sig))
-         (beats (map (lambda (f) (reverse (cdr (reverse f)))) normalized)))
-    (apply append beats)))
+         (beats (map (lambda (f) (drop-right f 1)) normalized)))
+    (concatenate beats)))
 
 (define-public (calculate-compound-beat-grouping time-sig)
   (cond