]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/general-scheme-bindings.ly
Merge branch 'master' of git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond
[lilypond.git] / input / regression / general-scheme-bindings.ly
1 \header {
2
3   texidoc = "This file tests various Scheme utiliity functions." 
4
5 }
6
7
8 \version "2.11.8"
9
10 %% todo : use macro, to show the statement tested. 
11 #(ly:progress "~a\n" (ly:expand-environment "${HOME} $HOME $$ "))
12 #(ly:font-config-display-fonts)
13
14 #(ly:progress "~A\n" (ly:duration->string (ly:make-duration 2 2 3 7)))
15 #(ly:parser-parse-string (ly:parser-clone parser) "foo  = #1 #(ly:progress \"hello there\n\")")
16
17 #(ly:progress "~a\n" (ly:truncate-list! (iota 5) 10))
18 #(ly:progress "~a\n" (ly:truncate-list! (iota 10) 5))