[svn:parrot] r11124 - trunk/languages/tcl/lib/builtins

[coke]

Author: coke
Date: Thu Jan 12 08:25:15 2006
New Revision: 11124

Modified:
   trunk/languages/tcl/lib/builtins/time.tmt
Log:
tcl -

<dkf> the [time] command has been changed to work with fractional results

So, just return the N result.



Modified: trunk/languages/tcl/lib/builtins/time.tmt
==============================================================================
--- trunk/languages/tcl/lib/builtins/time.tmt   (original)
+++ trunk/languages/tcl/lib/builtins/time.tmt   Thu Jan 12 08:25:15 2006
@@ -15,8 +15,7 @@ $N{register_num}  = $N{register_num} - $
 $N{register_num}  = $N{register_num} * 1000000
 $N0 = $P{register_count}
 $N{register_num}  = $N{register_num} / $N0
-$I{register_num}  = $N{register_num}
-$S{register_num}  = $I{register_num}
+$S{register_num}  = $N{register_num}
 $S{register_num} .= ' microseconds per iteration'
 $P{register_num} = new .TclString
 $P{register_num} = $S{register_num}