-\version "2.17.25"
+\version "2.19.40"
#(use-modules (srfi srfi-13)
(ice-9 format))
(char=? (peek-char port) #\]))
(read-char port))
(display c out))))))
- `(let* ((parser-clone (ly:parser-clone parser))
+ `(let* ((parser-clone (ly:parser-clone))
(input-str (string-trim-both ,lily-string))
(music (ly:parse-string-expression parser-clone input-str))
- (result-str (string-trim-both (music->lily-string music parser-clone))))
+ (result-str (string-trim-both (music->lily-string music))))
(cons input-str result-str))))
#(read-hash-extend #\[ parse-lily-and-compute-lily-string) %{ ] %}
(make-column-markup (string-split str #\NewLine)))
test =
-#(define-void-function (parser location harmless strings)
+#(define-void-function (harmless strings)
((string?) pair?)
(let ((input (car strings))
(output (cdr strings))
(if harmless
(ly:progress "Test unequal: ~a.\nin = ~a\nout = ~a\n"
harmless input output)
- (ly:input-warning location "Test unequal: BUG.\nin = ~a\nout = ~a\n"
+ (ly:input-warning (*location*) "Test unequal: BUG.\nin = ~a\nout = ~a\n"
input output)))))
%%%
\test ##[ \clef "bass^(15)" #]
\test ##[ \clef "alto_3" #]
\test ##[ \time 2/4 #]
-\test ##[ \time #'(3 2) 5/8 #]
+\test ##[ \time 3,2 5/8 #]
\test ##[ \bar "|." #]
%% staff switches
%% pure rhythm
\test ##[ { 4 4 8 \tuplet 3/2 { 8[ 16] } 16 } #]
-%% \relative and \tranpose
-\test #"NOT A BUG" ##[ \relative c' { c4 b4 } #] % RelativeOctaveMusic
+%% \relative and \transpose
+\test #"NOT A BUG" ##[ \relative { c'4 b4 } #] % RelativeOctaveMusic
\test #"NOT A BUG" ##[ \transpose c d { c4 d4 } #] % TransposedMusic
%% Repeats
\test ##[ \revert StaffGrouper.staff-staff-spacing.basic-distance #] % nested properties
%% \applyOutput
-\test ##[ \applyOutput #'Foo #(lambda (arg) (list)) #]
+\test ##[ \applyOutput Foo #(lambda (arg) (list)) #]
+\test ##[ \applyOutput Foo.NoteHead #(lambda (arg) (list)) #]
%% \applyContext
\test ##[ \applyContext #(lambda (arg) (list)) #]