diff options
Diffstat (limited to 'tests/list.test')
| -rw-r--r-- | tests/list.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/list.test b/tests/list.test index 8e85ed8..864fad0 100644 --- a/tests/list.test +++ b/tests/list.test @@ -108,7 +108,7 @@ proc slowsort list { set minIndex $i set min [lindex $list $i] } - set i [expr {$i - 1}] + incr i -1 } set result [concat $result [list $min]] if {$minIndex == 0} { |