From: David Kastrup <dak@gnu.org>
Date: Sat, 10 Mar 2012 11:13:13 +0000 (+0100)
Subject: Fix grob-property-path in context-defs-from-music and \settingsFrom
X-Git-Tag: release/2.15.34-1~29
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=124df3943dadcfad9dedf532a04705dae5b0e2ba;p=lilypond.git

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 7adb1b7c78..f9e30d33e2 100644
--- 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 a9098fd1f8..2951639266 100644
--- 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)))