summaryrefslogtreecommitdiffstats
path: root/tools/uniClass.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-18 07:50:19 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-06-18 07:50:19 (GMT)
commitf498e25fe3bf5f45bf480cc450fa0f9e83910d64 (patch)
tree780a58306503cc1309cf5051bd9f8506aa586400 /tools/uniClass.tcl
parentc694b80895cefb1f73e090593b507dfa7f6a213e (diff)
parent914227b03938ff6da7a4b35ef2e9a2b495df3ba0 (diff)
downloadtcl-f498e25fe3bf5f45bf480cc450fa0f9e83910d64.zip
tcl-f498e25fe3bf5f45bf480cc450fa0f9e83910d64.tar.gz
tcl-f498e25fe3bf5f45bf480cc450fa0f9e83910d64.tar.bz2
Fix uniClass tool which was the real cause for [a876646efe], and add test-case for it.
Diffstat (limited to 'tools/uniClass.tcl')
-rw-r--r--tools/uniClass.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl
index 32b40e9..9b4819d 100644
--- a/tools/uniClass.tcl
+++ b/tools/uniClass.tcl
@@ -72,7 +72,7 @@ proc genTable {type} {
if {$i == ($last + 1)} {
set last $i
} else {
- if {$first > 0} {
+ if {$first >= 0} {
emitRange $first $last
}
set first $i