diff options
| author | dkf <dkf@noemail.net> | 2012-10-05 14:54:31 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2012-10-05 14:54:31 (GMT) |
| commit | dc6209bca64f070577af3b0d13032ff78de62c0d (patch) | |
| tree | 5735bceaaa2c0b52d877f4b3c0458512d82b66d7 /generic/tclDictObj.c | |
| parent | 0a9e576ac075429e6a44299268c2b47d977c4008 (diff) | |
| download | tcl-tip-vote.zip tcl-tip-vote.tar.gz tcl-tip-vote.tar.bz2 | |
...and all the compilation and tests now work/passtip-vote
FossilOrigin-Name: d075bd7bcd8fcfcd9c2b41653058d755e19db3c5
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index dac4cbe..b64b776 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -2619,6 +2619,7 @@ DictMapNRCmd( * internally so that updates, shimmering, etc are not a problem. */ + Tcl_IncrRefCount(storagePtr->accumulatorObj); Tcl_IncrRefCount(storagePtr->keyVarObj); Tcl_IncrRefCount(storagePtr->valueVarObj); Tcl_IncrRefCount(storagePtr->scriptObj); @@ -2707,7 +2708,7 @@ DictMapLoopCallback( Tcl_DictObjNext(&storagePtr->search, &keyObj, &valueObj, &done); if (done) { - Tcl_ResetResult(interp); + Tcl_SetObjResult(interp, storagePtr->accumulatorObj); goto done; } |