diff options
Diffstat (limited to 'library/opt/optparse.tcl')
| -rw-r--r-- | library/opt/optparse.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/opt/optparse.tcl b/library/opt/optparse.tcl index 0a6cdfa..1aec83b 100644 --- a/library/opt/optparse.tcl +++ b/library/opt/optparse.tcl @@ -785,7 +785,7 @@ proc ::tcl::OptCheckType {arg type {typeArgs ""}} { if {[regexp {^-(.+)$} $arg1 x type]} { # flags/optValue as they are optional, need a "value", # on the contrary, for a variable (non optional), - # default value is pointless, 'cept for choices : + # default value is pointless, 'cept for choices : if {$isflag || $isopt || ($type == "choice")} { return [OptNewInst $state $varname $type $arg2 ""] } else { |