music-function results should receive origin information.

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 59eaee6d8ecbc927b996580761028943b837b77b..c57917316b8f6950401062a58f4ac5099abed73b 100644 (file)
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -46,7 +46,10 @@
 (define-ly-syntax (music-function parser loc pred default fun args)
   (let ((m (apply fun parser loc args)))
     (if (pred m)
-       m
+       (begin
+         (if (ly:music? m)
+             (set! (ly:music-property m 'origin) loc))
+         m)
        (begin
          (ly:parser-error parser
                           (format #f (_ "~a function cannot return ~a")