diff options
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tcl8.6/opt0.4/optparse.tcl')
-rw-r--r-- | Master/tlpkg/tltcl/lib/tcl8.6/opt0.4/optparse.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tltcl/lib/tcl8.6/opt0.4/optparse.tcl b/Master/tlpkg/tltcl/lib/tcl8.6/opt0.4/optparse.tcl index 163937942ad..454b9239598 100644 --- a/Master/tlpkg/tltcl/lib/tcl8.6/opt0.4/optparse.tcl +++ b/Master/tlpkg/tltcl/lib/tcl8.6/opt0.4/optparse.tcl @@ -601,7 +601,7 @@ proc ::tcl::OptCheckType {arg type {typeArgs ""}} { return [expr {$arg ? 1 : 0}] } choice { - if {[lsearch -exact $typeArgs $arg] < 0} { + if {$arg ni $typeArgs} { error "invalid choice" } return $arg |