mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix typo in arithmetic benchmark

Browse source 
* benchmark-suite/benchmarks/arithmetic.bm (fixnum): Fix `-' benchmark
  to actually use `-' operator instead of `+' operator.
This commit is contained in:
Mark H Weaver 2011-04-07 02:28:01 -04:00
parent 165b10ddfa
commit 40c2a95a72
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
benchmark-suite/benchmarks/arithmetic.bm
View file

@ -58,7 +58,7 @@
(repeat (+ 2 <>) 7 100)) (repeat (+ 2 <>) 7 100))
(benchmark "-" 1e7 (benchmark "-" 1e7
(repeat (+ 2 <>) 7 100)) (repeat (- 2 <>) 7 100))
(benchmark "*" 1e7 (benchmark "*" 1e7
(repeat (* 1 <>) 1 100)) (repeat (* 1 <>) 1 100))