aboutsummaryrefslogtreecommitdiff
path: root/bench.tcl
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2011-04-12 17:32:50 +1000
committerSteve Bennett <steveb@workware.net.au>2011-06-10 14:00:12 +1000
commit5233ba4aafc1b8a5fca412001e047760333aff8e (patch)
tree2417aabaedbc05f57a9cb9a580c4a828a67cbcd5 /bench.tcl
parentc8392364cc98e5cfb371b62a8df0e7ff8d575e5e (diff)
downloadjimtcl-5233ba4aafc1b8a5fca412001e047760333aff8e.zip
jimtcl-5233ba4aafc1b8a5fca412001e047760333aff8e.tar.gz
jimtcl-5233ba4aafc1b8a5fca412001e047760333aff8e.tar.bz2
Update TODO to reflect the current state of Jim
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'bench.tcl')
-rw-r--r--bench.tcl1
1 files changed, 1 insertions, 0 deletions
diff --git a/bench.tcl b/bench.tcl
index d9c5e3a..80f1506 100644
--- a/bench.tcl
+++ b/bench.tcl
@@ -17,6 +17,7 @@ proc bench {title script} {
set ts [string range $ts [expr {[string length $ts]-10}] end]
if {!$batchmode} {puts "$Title -$ts ms per iteration"}
}
+ catch { collect }
}
### BUSY LOOP ##################################################################