diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-29 21:28:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-29 21:28:24 (GMT) |
| commit | 83409874d9644cc0926e20e01bd7213c07412db5 (patch) | |
| tree | bb1aa5fc9960027e2676b3c4128a55b5ca9327c2 /generic/tclLoad.c | |
| parent | af91ab97f21de4a51a98a60e5ada93b4441cb36c (diff) | |
| download | tcl-83409874d9644cc0926e20e01bd7213c07412db5.zip tcl-83409874d9644cc0926e20e01bd7213c07412db5.tar.gz tcl-83409874d9644cc0926e20e01bd7213c07412db5.tar.bz2 | |
Bug fix. Stop load-3.2 test failure.
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 61c763f..6f5b9cf 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -474,9 +474,8 @@ Tcl_LoadObjCmd( /* We have an Tcl 8.x extension with incompatible stub table. */ Tcl_Obj *obj = Tcl_NewStringObj(iPtr->result, -1); Tcl_SetObjResult(interp, obj); - } else { - Tcl_TransferResult(target, code, interp); } + Tcl_TransferResult(target, code, interp); goto done; } |