X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Ffestival.ly;h=ad3541ce98fc64d9eaed84059feaa2a97ef1bd22;hb=2bbacb364aa29041af9cbbbd32cfad2e8e387cb3;hp=14b45048659f69216dd025c64c2f6f7dacd48fc5;hpb=b7a0cffbf9d1069860368f289a5b50e9d1d90ba8;p=lilypond.git

diff --git a/ly/festival.ly b/ly/festival.ly
index 14b4504865..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.12.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)