fix {queue check} default argument

This commit is contained in:
HummyPkg 2017-03-18 10:41:23 +00:00
parent 4a840d89d8
commit 4bb5fd3a30

View File

@ -205,7 +205,7 @@ proc {queue status} {ts} {
return $q return $q
} }
proc {queue check} {ts {q "all"}} { proc {queue check} {ts {q "any"}} {
set queues [split [queue status $ts] ,] set queues [split [queue status $ts] ,]
if {$q eq "any" && [llength $queues]} { if {$q eq "any" && [llength $queues]} {
return 1 return 1