diff options
author | Steve Bennett <steveb@workware.net.au> | 2016-09-07 15:15:13 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-09-07 15:15:13 +1000 |
commit | ffe0bd613d8a1b6a65c69a695fd79a259b22c53d (patch) | |
tree | 7ee23e806a8166592d417c9ab6a383afa9f8ec10 /parse-unidata.tcl | |
parent | a2d73e8bf2ec754f98daeba0f1450cdc75f421f9 (diff) | |
download | jimtcl-ffe0bd613d8a1b6a65c69a695fd79a259b22c53d.zip jimtcl-ffe0bd613d8a1b6a65c69a695fd79a259b22c53d.tar.gz jimtcl-ffe0bd613d8a1b6a65c69a695fd79a259b22c53d.tar.bz2 |
parse-unidata: build fix
Fix Jim-only syntax in parse-unidata.tcl to ensure the build works on systems
using tclsh
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'parse-unidata.tcl')
-rw-r--r-- | parse-unidata.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parse-unidata.tcl b/parse-unidata.tcl index b3beec1..5ae237f 100644 --- a/parse-unidata.tcl +++ b/parse-unidata.tcl @@ -57,7 +57,7 @@ while {[gets $f buf] >= 0} { set combining $codex } continue - } elseif {[exists combining]} { + } elseif {[info exists combining]} { lappend map(combining) $combining $codex unset combining } |