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

[lilypond.git] / ly / text-replacements.ly

diff --git a/ly/text-replacements.ly b/ly/text-replacements.ly
index 94d3dacc2e34bb626d9ab8f60eff69ded6d16db6..6b522d65bfef345d075716a7c540b75d19c1ac33 100644 (file)
--- 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!