Fix typo in arithmetic benchmark

[bpt/guile.git] / benchmark-suite / benchmarks / arithmetic.bm

diff --git a/benchmark-suite/benchmarks/arithmetic.bm b/benchmark-suite/benchmarks/arithmetic.bm
index 62d67be..c64f6c2 100644 (file)
--- a/benchmark-suite/benchmarks/arithmetic.bm
+++ b/benchmark-suite/benchmarks/arithmetic.bm
@@ -58,4 +58,10 @@
     (repeat (+ 2 <>) 7 100))
 
   (benchmark "-" 1e7
-    (repeat (+ 2 <>) 7 100)))
+    (repeat (- 2 <>) 7 100))
+
+  (benchmark "*" 1e7
+    (repeat (* 1 <>) 1 100))
+
+  (benchmark "/" 1e7
+    (repeat (/ 2 <>) 1 100)))