2 (define-module (benchmarks if)
3 :use-module (benchmark-suite lib))
5 (with-benchmark-prefix "if-<expr>-then-else"
7 (benchmark "executing then" 330000
10 (benchmark "executing else" 330000
11 (if (quote #f) #t #f)))
13 (with-benchmark-prefix "if-<expr>-then"
15 (benchmark "executing then" 330000
18 (benchmark "executing else" 330000
21 (with-benchmark-prefix "if-<iloc>-then-else"
24 (benchmark "executing then" 330000
28 (benchmark "executing else" 330000
31 (with-benchmark-prefix "if-<iloc>-then"
34 (benchmark "executing then" 330000
38 (benchmark "executing else" 330000
41 (with-benchmark-prefix "if-<bool>-then-else"
43 (benchmark "executing then" 330000
46 (benchmark "executing else" 330000
49 (with-benchmark-prefix "if-<bool>-then"
51 (benchmark "executing then" 330000
54 (benchmark "executing else" 330000