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 | 8e6efd70260d3e66cefce5a84f130d3d6f30c06d (patch) | |
| tree | 1ccee56d0a543d1689e848d5366f9fc13d037376 | |
| parent | 39365ed3c03986530b935fdb69cbca96cbf80f79 (diff) | |
| download | tcl-8e6efd70260d3e66cefce5a84f130d3d6f30c06d.zip tcl-8e6efd70260d3e66cefce5a84f130d3d6f30c06d.tar.gz tcl-8e6efd70260d3e66cefce5a84f130d3d6f30c06d.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; } |