X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fbase-tkit.ly;h=ba5982c1226cdc0f398c6b849044a0ca08d888ac;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=6061475accd8e46fcfd5b85794c4916af30151fb;hpb=14261eabcc7e9e653ee166b86f0371219fa0c54c;p=lilypond.git diff --git a/ly/base-tkit.ly b/ly/base-tkit.ly index 6061475acc..ba5982c122 100644 --- a/ly/base-tkit.ly +++ b/ly/base-tkit.ly @@ -1,4 +1,4 @@ -%\version "2.19.19" +%\version "2.19.22" %%% These are the general utility functions and storage % used by the built-in templates and the template kits @@ -8,7 +8,7 @@ #(define (get-id str) "Return the identifier with the value str" - (ly:parser-lookup parser (string->symbol str))) + (ly:parser-lookup (string->symbol str))) #(define (make-id a b) "Return the identifier formed from concatenating the @@ -34,8 +34,8 @@ (for-each (lambda (id) (define sym (string->symbol id)) - (if (null? (ly:parser-lookup parser sym)) - (ly:parser-define! parser sym #f))) + (if (null? (ly:parser-lookup sym)) + (ly:parser-define! sym #f))) ids)) % Define the lists used to hold the names and