diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-30 15:55:03 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-11-30 15:55:03 (GMT) |
commit | 7e7cc4ff29c7c60467e3c3c61c861c2df30c5e78 (patch) | |
tree | 1ccee56d0a543d1689e848d5366f9fc13d037376 | |
parent | 64a81406f2649f08e1e61f68a92ef77fc2c31f32 (diff) | |
download | tcl-7e7cc4ff29c7c60467e3c3c61c861c2df30c5e78.zip tcl-7e7cc4ff29c7c60467e3c3c61c861c2df30c5e78.tar.gz tcl-7e7cc4ff29c7c60467e3c3c61c861c2df30c5e78.tar.bz2 |
After a Tcl_SetObjResult, don't do a Tcl_TransferResult to the same interpreter
-rw-r--r-- | generic/tclLoad.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 6f5b9cf..61c763f 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -474,8 +474,9 @@ 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; } |