diff options
| author | mig <mig> | 2013-12-10 12:05:06 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-10 12:05:06 (GMT) |
| commit | 05c6524f4576db17abf945a46f2a34d85d34a683 (patch) | |
| tree | 8f25094076c3c2e22f9030655bbbc719f02213b7 | |
| parent | 5b08f1d1ef025223ce9bc15d06dbdb88c247822a (diff) | |
| download | tcl-05c6524f4576db17abf945a46f2a34d85d34a683.zip tcl-05c6524f4576db17abf945a46f2a34d85d34a683.tar.gz tcl-05c6524f4576db17abf945a46f2a34d85d34a683.tar.bz2 | |
fix stack computations for lmap
| -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}} }; |