diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-11 12:13:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-11 12:13:11 (GMT) |
| commit | 3f3c89a94712629db5dd879be46ee097e61b4944 (patch) | |
| tree | 5680aeaaef048a1003caa8da3ee6b5d58790395c /generic | |
| parent | d9dbcf5afb7f7261b5928092e17307280d737106 (diff) | |
| download | tcl-3f3c89a94712629db5dd879be46ee097e61b4944.zip tcl-3f3c89a94712629db5dd879be46ee097e61b4944.tar.gz tcl-3f3c89a94712629db5dd879be46ee097e61b4944.tar.bz2 | |
Screen out empty list value so that assertions are true.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 839f6f4..ef64ac1 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5239,6 +5239,12 @@ TEBCresume( } #endif + /* Every range of an empty list is an empty list */ + if (objc == 0) { + TRACE_APPEND(("\n")); + NEXT_INST_F(9, 0, 0); + } + /* Decode index value operands. */ /* |