--loop should run forever

Former-commit-id: 9b1e636a6654a4ba3b629b5ad1097caf513ca000
This commit is contained in:
John Sully 2020-05-31 21:26:39 -04:00
parent 9ab9a7684d
commit dd45ade779

View File

@ -613,7 +613,7 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
} elseif {$opt eq {--stop}} {
set ::stop_on_failure 1
} elseif {$opt eq {--loop}} {
set ::loop 1000
set ::loop -1
} elseif {$opt eq {--loopn}} {
set ::loop [expr $arg - 1]
incr j