X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ffestival.ly;h=ad3541ce98fc64d9eaed84059feaa2a97ef1bd22;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=cbe88d67c847b1acb51cefe7006e3bb349f51fa4;hpb=2f320e9722ec20d6f13ec567d007763cc912c5da;p=lilypond.git

diff --git a/ly/festival.ly b/ly/festival.ly
index cbe88d67c8..ad3541ce98 100644
--- a/ly/festival.ly
+++ b/ly/festival.ly
@@ -17,19 +17,22 @@
 %%%% You should have received a copy of the GNU General Public License
 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
-\version "2.14.0"
+\version "2.19.22"
 
 #(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 (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 (filename tempo music)
+   (string? ly:music? ly:music?)
+   (parameterize ((*syllabify* #t))
+     (output-file music tempo filename))
+   music)