Posted to tcl by colin at Mon Nov 01 04:44:00 GMT 2010view pretty

puts "[time {interp create -safe fred[incr cnt]} 1000]"
puts "[time {interp create fred[incr cnt]} 1000]"

set forever 0
vwait forever

938.465 microseconds per iteration

2630.036 microseconds per iteration