diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-07 19:04:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-07 19:04:44 (GMT) |
| commit | 7b2a90493f10dc61b00ab07a3057b23b4b2dc7d2 (patch) | |
| tree | 2d85060db40b60b0691e95d92fef440d28c903cc | |
| parent | 3304a8bc1e4704d8fd923f0b4a8a398a3b36aa83 (diff) | |
| download | tcl-7b2a90493f10dc61b00ab07a3057b23b4b2dc7d2.zip tcl-7b2a90493f10dc61b00ab07a3057b23b4b2dc7d2.tar.gz tcl-7b2a90493f10dc61b00ab07a3057b23b4b2dc7d2.tar.bz2 | |
Use the new purity test.
| -rw-r--r-- | generic/tclCmdMZ.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 3b81cbe..9398e47 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1876,7 +1876,8 @@ StringMapCmd( * inconsistencies (see test string-10.20.1 for illustration why!) */ - if (Tcl_FetchIntRep(objv[objc-2], &tclDictType) && objv[objc-2]->bytes == NULL){ + if (!TclHasStringRep(objv[objc-2]) + && Tcl_FetchIntRep(objv[objc-2], &tclDictType)){ int i, done; Tcl_DictSearch search; |