diff options
| author | mig <mig> | 2013-12-10 12:05:06 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-10 12:05:06 (GMT) |
| commit | f027309e2d3323c69c80de201a261f09c56107e4 (patch) | |
| tree | 8f25094076c3c2e22f9030655bbbc719f02213b7 /generic/tclCompile.c | |
| parent | 8c3feca238b2c1354a1511bdf0fcff8dcf957aa9 (diff) | |
| download | tcl-f027309e2d3323c69c80de201a261f09c56107e4.zip tcl-f027309e2d3323c69c80de201a261f09c56107e4.tar.gz tcl-f027309e2d3323c69c80de201a261f09c56107e4.tar.bz2 | |
fix stack computations for lmap
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index c7b7875..6c2e2b6 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -554,7 +554,7 @@ InstructionDesc const tclInstructionTable[] = { {"foreach_step", 1, 0, 0, {OPERAND_NONE}}, /* "Step" or begin next iteration of foreach loop. */ {"foreach_end", 1, 0, 0, {OPERAND_NONE}}, - {"lmap_collect", 1, 0, 0, {OPERAND_NONE}}, + {"lmap_collect", 1, -1, 0, {OPERAND_NONE}}, {NULL, 0, 0, 0, {OPERAND_NONE}} }; |