summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/lib/tcl8.6/opt0.4/optparse.tcl
diff options
context:
space:
mode:
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.tcl2
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