X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fstring-tunings-init.ly;h=927bbae6b257a2b08b2c91bf49f1287fc2ff6b8d;hb=77267b700c377fd170abcbf4863728937038eb5e;hp=b09d8da87186186b9615ee6edb59e1e312dbdece;hpb=e7aa6c445f463844dbaa52d38ea4aac2882b5601;p=lilypond.git

diff --git a/ly/string-tunings-init.ly b/ly/string-tunings-init.ly
index b09d8da871..927bbae6b2 100644
--- a/ly/string-tunings-init.ly
+++ b/ly/string-tunings-init.ly
@@ -1,6 +1,6 @@
 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
-%%%% Copyright (C) 2010--2014 Carl D. Sorensen <c_sorensen@byu.edu>
+%%%% Copyright (C) 2010--2015 Carl D. Sorensen <c_sorensen@byu.edu>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
@@ -15,7 +15,7 @@
 %%%% 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.16.0"
+\version "2.19.22"
 
 %%  A stringTuning is a list of pitches ordered by string number
 %%  from 1 to N.
@@ -27,7 +27,7 @@
 %% lowest string number
 
 stringTuning =
-#(define-scheme-function (parser location chord)
+#(define-scheme-function (chord)
    (ly:music?)
    (_i "Convert @var{chord} to a string tuning.
 @var{chord} must be in absolute pitches and should have the highest
@@ -38,11 +38,11 @@ string number (generally the lowest pitch) first.")
 defaultStringTunings = #'()
 
 makeDefaultStringTuning =
-#(define-void-function (parser location symbol pitches) (symbol? list?)
+#(define-void-function (symbol pitches) (symbol? list?)
    (_i "This defines a string tuning @var{symbol} via a list of @var{pitches}.
 The @var{symbol} also gets registered in @code{defaultStringTunings}
 for documentation purposes.")
-   (ly:parser-define! parser symbol pitches)
+   (ly:parser-define! symbol pitches)
    (set! defaultStringTunings (acons symbol pitches defaultStringTunings)))
 
 %% guitar tunings
@@ -89,4 +89,4 @@ defaultStringTunings = #(reverse! defaultStringTunings)
 
 %% convert 5-string banjo tuning to 4-string by removing the 5th string
 four-string-banjo = #(lambda (tuning)
-			 (take tuning 4))
+                         (take tuning 4))