From b3874a49dcfcbf0a04e1af974f0fa86a021432f1 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Fri, 10 Feb 2023 14:00:44 +1000
Subject: bench.tcl: remove expr with multiple arguments

For compatibility when Jim is build without --compat

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 bench.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bench.tcl b/bench.tcl
index f39bef1..bb18af8 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -11,7 +11,7 @@ proc bench {title script} {
         if {!$batchmode} {puts "$Title - This test can't run on this interpreter ($res)"}
         lappend benchmarks $title F
     } else {
-        set t [expr [lindex $res 0] / 1000]
+        set t [expr {[lindex $res 0] / 1000}]
         lappend benchmarks $title $t
         set ts "          $t"
         set ts [string range $ts [expr {[string length $ts]-10}] end]
-- 
cgit v1.1