(define-module (benchmarks if) :use-module (benchmark-suite lib)) (with-benchmark-prefix "if--then-else" (benchmark "executing then" 330000 (if (quote #t) #t #f)) (benchmark "executing else" 330000 (if (quote #f) #t #f))) (with-benchmark-prefix "if--then" (benchmark "executing then" 330000 (if (quote #t) #t)) (benchmark "executing else" 330000 (if (quote #f) #t))) (with-benchmark-prefix "if--then-else" (let ((x #t)) (benchmark "executing then" 330000 (if x #t #f))) (let ((x #f)) (benchmark "executing else" 330000 (if x #t #f)))) (with-benchmark-prefix "if--then" (let ((x #t)) (benchmark "executing then" 330000 (if x #t))) (let ((x #f)) (benchmark "executing else" 330000 (if x #t)))) (with-benchmark-prefix "if--then-else" (benchmark "executing then" 330000 (if #t #t #f)) (benchmark "executing else" 330000 (if #f #t #f))) (with-benchmark-prefix "if--then" (benchmark "executing then" 330000 (if #t #t)) (benchmark "executing else" 330000 (if #f #t)))