Left: | ||
Right: |
OLD | NEW |
---|---|
(Empty) | |
1 \version "2.18.0" | |
2 | |
3 \header { | |
4 texidoc = "@code{\\pattern} and @code{\\fill-with-pattern} markup | |
5 commands should interpret their arguments only once. This test | |
6 calls them with a markup command that counts how often it is | |
7 evaluated. The first line is supposed to show just @samp{1} | |
8 multiple times, the second line uses numbers @samp{2} to @samp{4}." | |
9 } | |
10 | |
11 #(let ((n 0)) | |
12 (define-markup-command (another layout props) () | |
13 (set! n (1+ n)) | |
14 (interpret-markup layout props (number->string n)))) | |
15 | |
16 \markup \pattern #10 #X #2 \another | |
17 \markup \fill-with-pattern #2 #RIGHT \another \another \another | |
OLD | NEW |