Changeset 1081 for trunk/modules/system.tcl

Timestamp:

07/17/10 19:20:00 (22 months ago)

Author:

james

Message:

fix random number generation
fix %NUMBER

File:

• trunk/modules/system.tcl (modified) (1 diff)

trunk/modules/system.tcl

@@ -875 +875 @@
         }
 
-        incr limit 1
         set result [rand $limit]
-        incr limit
-        return $limit
+        incr result
+        return $result
 }