From 5233ba4aafc1b8a5fca412001e047760333aff8e Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Tue, 12 Apr 2011 17:32:50 +1000
Subject: Update TODO to reflect the current state of Jim

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

(limited to 'bench.tcl')

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 ##################################################################
-- 
cgit v1.1