diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:22:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 09:22:18 (GMT) |
| commit | f0ec68f07293dac2b967d45a3697073b77688970 (patch) | |
| tree | 1c2e9c90480d43aa230b77653baff036339dc848 /tools/uniParse.tcl | |
| parent | 6e44927248852ae0356d9d3e1cfa3d69597a66b1 (diff) | |
| download | tcl-f0ec68f07293dac2b967d45a3697073b77688970.zip tcl-f0ec68f07293dac2b967d45a3697073b77688970.tar.gz tcl-f0ec68f07293dac2b967d45a3697073b77688970.tar.bz2 | |
Prevent the usage of the term safe/unsafe child. Suggested by Keith Nash. Thanks!
More usage of $index<0 in stead of $index==-1 consistantly
Diffstat (limited to 'tools/uniParse.tcl')
| -rw-r--r-- | tools/uniParse.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index a451096..545afc4 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -68,7 +68,7 @@ proc uni::getGroup {value} { variable groups set gIndex [lsearch -exact $groups $value] - if {$gIndex == -1} { + if {$gIndex < 0} { set gIndex [llength $groups] lappend groups $value } @@ -81,7 +81,7 @@ proc uni::addPage {info} { variable shift set pIndex [lsearch -exact $pages $info] - if {$pIndex == -1} { + if {$pIndex < 0} { set pIndex [llength $pages] lappend pages $info } |