Fix grob-property-path in context-defs-from-music and \settingsFrom

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 7adb1b7c788ae98db097585eed68c31382007d8e..f9e30d33e2f9adca3fcc45086ffa68423027a4f7 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -988,14 +988,14 @@ a context modification duplicating their effect.")
               (list 'unset
                     (ly:music-property m 'symbol)))
              ((OverrideProperty)
-              (list 'push
-                    (ly:music-property m 'symbol)
-                    (ly:music-property m 'grob-value)
-                    (ly:music-property m 'grob-property-path)))
+              (cons* 'push
+                     (ly:music-property m 'symbol)
+                     (ly:music-property m 'grob-value)
+                     (ly:music-property m 'grob-property-path)))
              ((RevertProperty)
-              (list 'pop
-                    (ly:music-property m 'symbol)
-                    (ly:music-property m 'grob-property-path)))))
+              (cons* 'pop
+                     (ly:music-property m 'symbol)
+                     (ly:music-property m 'grob-property-path)))))
           (case (ly:music-property m 'name)
             ((SequentialMusic SimultaneousMusic)
              (for-each musicop (ly:music-property m 'elements)))

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index a9098fd1f8520dc96011897d31bc7f4e8e4199fd..2951639266b744ee10687e01b4faebcab2acce2d 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -287,14 +287,14 @@ bookoutput function"
              (list 'unset
                    (ly:music-property m 'symbol)))
             ((OverrideProperty)
-             (list 'push
-                   (ly:music-property m 'symbol)
-                   (ly:music-property m 'grob-value)
-                   (ly:music-property m 'grob-property-path)))
+             (cons* 'push
+                    (ly:music-property m 'symbol)
+                    (ly:music-property m 'grob-value)
+                    (ly:music-property m 'grob-property-path)))
             ((RevertProperty)
-             (list 'pop
-                   (ly:music-property m 'symbol)
-                   (ly:music-property m 'grob-property-path)))))
+             (cons* 'pop
+                    (ly:music-property m 'symbol)
+                    (ly:music-property m 'grob-property-path)))))
          (case (ly:music-property m 'name)
            ((SequentialMusic SimultaneousMusic)
             (fold loop mods (ly:music-property m 'elements)))