Author: coke
Date: Wed Dec 28 18:16:59 2005
New Revision: 10756
Modified:
trunk/languages/tcl/examples/bench.tcl
Log:
give [expr] a chance to do something compily.
Modified: trunk/languages/tcl/examples/bench.tcl
==============================================================================
--- trunk/languages/tcl/examples/bench.tcl (original)
+++ trunk/languages/tcl/examples/bench.tcl Wed Dec 28 18:16:59 2005
@@ -1,7 +1,7 @@
proc fact { number } {
set val 1
while {$number} {
- set val [expr $val * $number]
+ set val [expr {$val * $number}]
incr number -1
}
return $val
