diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-12-22 15:35:47 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-12-22 15:35:47 (GMT) |
| commit | b9a9261bbab10a7aafec70649ea9995057c0c0b8 (patch) | |
| tree | 7c4617105cac815c3aa69f8d5ac0d63196d69d91 /generic/tclCompCmds.c | |
| parent | a1d0d2dc435ce6072fbb7cf4f1b78ab2b05fdbc6 (diff) | |
| download | tcl-b9a9261bbab10a7aafec70649ea9995057c0c0b8.zip tcl-b9a9261bbab10a7aafec70649ea9995057c0c0b8.tar.gz tcl-b9a9261bbab10a7aafec70649ea9995057c0c0b8.tar.bz2 | |
One more (interp==NULL) shortcut.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index b3568e8..106c293 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -4826,7 +4826,7 @@ PushVarName( } } - if ((elName != NULL) && elNameChars) { + if (interp && (elName != NULL) && elNameChars) { /* * An array element, the element name is a simple string: * assemble the corresponding token. |