From cc16a1e080e5469951f6b28729b3b51965b81b43 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Wed, 27 Aug 2003 23:57:53 +0000
Subject: [PATCH] (set-stop-grace-properties) (set-start-grace-properties,
 add-grace-property): new functions for modular grace tweak control.

---
 scm/auto-beam.scm       | 4 ++--
 scm/music-functions.scm | 8 ++++----
 scm/output-lib.scm      | 3 +--
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm
index 277b7de603..d40e52860c 100644
--- a/scm/auto-beam.scm
+++ b/scm/auto-beam.scm
@@ -88,7 +88,7 @@
   "Like the C++ code that executes \override, but without type
 checking. "
 
-  (ly:set-context-property context context-prop
+  (ly:set-context-property! context context-prop
 			   (cons (cons setting value)
 				 (ly:get-context-property context context-prop)
 				 )
@@ -110,7 +110,7 @@ a fresh copy of the  list-head is made."
 
   
   
-    (ly:set-context-property
+    (ly:set-context-property!
      context context-prop
      (revert-assoc (ly:get-context-property context context-prop)
 		   setting))
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index b7c6730469..73a398cffe 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -332,7 +332,7 @@ and set OTTAVATION to `8va', or whatever appropriate."
 		((where (ly:context-property-where-defined context 'centralCPosition))
 		 (oc0 (ly:get-context-property context 'originalCentralCPosition)))
 
-	      (ly:set-context-property context 'centralCPosition oc0)
+	      (ly:set-context-property! context 'centralCPosition oc0)
 	      (ly:unset-context-property where 'originalCentralCPosition)
 	      (ly:unset-context-property where 'ottavation))
 
@@ -347,9 +347,9 @@ and set OTTAVATION to `8va', or whatever appropriate."
 					      (-1 . "8va bassa")
 					      (-2 . "15ma bassa"))))))
 
-	      (ly:set-context-property context 'centralCPosition new-c0)
-	      (ly:set-context-property context 'originalCentralCPosition c0)
-	      (ly:set-context-property context 'ottavation string)
+	      (ly:set-context-property! context 'centralCPosition new-c0)
+	      (ly:set-context-property! context 'originalCentralCPosition c0)
+	      (ly:set-context-property! context 'ottavation string)
 	      
 	      ))))
 
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 9cb6ed627f..13fbfe9bd1 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -230,8 +230,7 @@ centered, X==1 is at the right, X == -1 is at the left."
 
 (define-public ((set-bar-number-visibility n) tr)
   (let* ((bn (ly:get-context-property tr 'currentBarNumber)))
-   (ly:set-context-property tr 'barNumberVisibility (modulo-bar-number-visible n (modulo bn n))))
-)
+   (ly:set-context-property! tr 'barNumberVisibility (modulo-bar-number-visible n (modulo bn n)))))
 
 (define-public (default-bar-number-visibility barnum) (> barnum 1))
 
-- 
2.11.4.GIT