diff options
| author | antirez <antirez> | 2005-03-06 22:42:33 +0000 |
|---|---|---|
| committer | antirez <antirez> | 2005-03-06 22:42:33 +0000 |
| commit | d455df785b1c4f6037260e8d3575e346da9a360e (patch) | |
| tree | 76cf3d91f547ea66ad71c47c115796765e54014a /regtest.tcl | |
| parent | 553e1e1b13041aee95a1732224cda7d7bdc56b60 (diff) | |
| download | jimtcl-d455df785b1c4f6037260e8d3575e346da9a360e.zip jimtcl-d455df785b1c4f6037260e8d3575e346da9a360e.tar.gz jimtcl-d455df785b1c4f6037260e8d3575e346da9a360e.tar.bz2 | |
A specializing version of [for] that appears able to match the
performaces of Tcl8.4 for the specialized forms. The implementation
is a bit complex so may contain bugs... to handle with care.
Also a [for] bug about [continue] was fixed and the regression test added.
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index b8edf00..c1aeac3 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -30,6 +30,11 @@ proc fibonacci {x} { fibonacci 6 puts "TEST 4 PASSED" +# REGTEST 5 +# 06Mar2005 - This looped forever... +for {set i 0} {$i < 10} {incr i} {continue} +puts "TEST 5 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |