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 | 388741b7d05e54a2dd6989f18100e2bb2aff85d0 (patch) | |
| tree | bb1aa5fc9960027e2676b3c4128a55b5ca9327c2 | |
| parent | b2ca802381bc6f87b8d9e5255941c3c6ce735240 (diff) | |
| download | tcl-388741b7d05e54a2dd6989f18100e2bb2aff85d0.zip tcl-388741b7d05e54a2dd6989f18100e2bb2aff85d0.tar.gz tcl-388741b7d05e54a2dd6989f18100e2bb2aff85d0.tar.bz2 | |
Bug fix. Stop load-3.2 test failure.
| -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; } |