From: David Kastrup <dak@gnu.org>
Date: Wed, 19 Oct 2011 14:37:37 +0000 (+0200)
Subject: text-replacements.ly: don't rely on assoc-set!'s sideeffect only.
X-Git-Tag: release/2.15.15-1~30
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3b569b2d93c83c89066aadc2e810b44644cff11d;p=lilypond.git

text-replacements.ly: don't rely on assoc-set!'s sideeffect only.
---

diff --git a/ly/text-replacements.ly b/ly/text-replacements.ly
index 94d3dacc2e..6b522d65bf 100644
--- a/ly/text-replacements.ly
+++ b/ly/text-replacements.ly
@@ -18,9 +18,10 @@
 \version "2.15.13"
 
 #(define (add-text-replacements! alist)
-   (assoc-set! text-font-defaults 'replacement-alist
-     (cdaar
-       (internal-add-text-replacements (list text-font-defaults) alist))))
+   (set! text-font-defaults
+	 (assoc-set! text-font-defaults 'replacement-alist
+		     (cdaar
+		      (internal-add-text-replacements (list text-font-defaults) alist)))))
 
 #(define (include-special-characters)
    (add-text-replacements!