non local literal sharing disabled.

bench.tcl modified to be more verbose.

1 files changed, 4 insertions, 3 deletions

diff --git a/bench.tcl b/bench.tcl
index edd1bc0..45a09cc 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -2,8 +2,9 @@ proc bench {title script} {
     while {[string length $title] < 20} {
 	append title " "
     }
-    catch {time $script} res
-    puts "$title - $res"
+    if {[catch {puts "$title - [time $script]"}]} {
+        puts "$title - This test can't run on this interpreter"
+    }
 }
 
 ### BUSY LOOP ##################################################################
@@ -197,4 +198,4 @@ bench {ary} {ary 100000}
 bench {repeat} {use_repeat}
 bench {upvar} {upvartest}
 bench {nested loops} {nestedloops}
-bench {rotate} {rotate 100000}
\ No newline at end of file
+bench {rotate} {rotate 100000}