X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ffestival.ly;h=1c60b019cfe3580765ca095ceb3b975260e9ce3b;hb=2e64d8a758a2fc90734568e79303dc92950000bc;hp=cbe88d67c847b1acb51cefe7006e3bb349f51fa4;hpb=2055f35c47a045a50a01ff4dba8524322cfc3b48;p=lilypond.git

diff --git a/ly/festival.ly b/ly/festival.ly
index cbe88d67c8..1c60b019cf 100644
--- a/ly/festival.ly
+++ b/ly/festival.ly
@@ -20,16 +20,19 @@
 \version "2.14.0"
 
 #(use-modules (scm song))
+#(use-modules (srfi srfi-39))
 
 % \festival #"filename" { \tempo N = X } { music }
 festival =
-#(define-music-function (parser location filename tempo music) (string? ly:music? ly:music?)
-  (output-file music tempo filename)
-  music)
+#(define-music-function (parser location filename tempo music)
+   (string? ly:music? ly:music?)
+   (output-file music tempo filename)
+   music)
 
 % \festivalsyl #"filename" { \tempo N = X } { music }
 festivalsyl =
-#(define-music-function (parser location filename tempo music) (string? ly:music? ly:music?)
-  (set! *syllabify* #t)
-  (output-file music tempo filename)
-  music)
+#(define-music-function (parser location filename tempo music)
+   (string? ly:music? ly:music?)
+   (parameterize ((*syllabify* #t))
+     (output-file music tempo filename))
+   music)