diff options
Diffstat (limited to 'src/stringprep/uni_parse.tcl')
| -rw-r--r-- | src/stringprep/uni_parse.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/stringprep/uni_parse.tcl b/src/stringprep/uni_parse.tcl index 08eced103..447c54510 100644 --- a/src/stringprep/uni_parse.tcl +++ b/src/stringprep/uni_parse.tcl @@ -131,7 +131,7 @@ proc uni::load_tables {data} { lappend tablemap($val) $table } } - } elseif {$table == "B.3"} { + } elseif {$table == "B.2"} { if {[regexp {^ ([[:xdigit:]]+); ([[:xdigit:]]+);} $line \ temp from to]} { scan $from %x from @@ -165,7 +165,7 @@ proc uni::load_tables {data} { #puts "missed: $line" } - } elseif {$table != "B.2"} { + } elseif {$table != "B.3"} { if {[regexp {^ ([[:xdigit:]]+)-([[:xdigit:]]+)} $line \ temp from to]} { scan $from %x from |