summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-04-04 20:17:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-04-04 20:17:32 (GMT)
commit94153a5def93c7aa8fb86247f30c40b138c2e57e (patch)
treef05c15ad8e6d97eff31aa2a0fd6a64dc4833a7ac
parent01361668457830c504cc69e5f90269188565a087 (diff)
downloadtcl-94153a5def93c7aa8fb86247f30c40b138c2e57e.zip
tcl-94153a5def93c7aa8fb86247f30c40b138c2e57e.tar.gz
tcl-94153a5def93c7aa8fb86247f30c40b138c2e57e.tar.bz2
Test _before_ commit, not after...
-rw-r--r--generic/tclCmdIL.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index a6af227..0a2784d 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -4254,7 +4254,7 @@ SortCompare(
Tcl_ResetResult(infoPtr->interp);
Tcl_AppendResult(infoPtr->interp,
"-compare command returned non-integer result", NULL);
- Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT",
+ Tcl_SetErrorCode(infoPtr->interp, "TCL", "OPERATION", "LSORT",
"COMPARISONFAILED", NULL);
infoPtr->resultCode = TCL_ERROR;
return 0;
@@ -4472,7 +4472,7 @@ SelectObjFromSublist(
Tcl_AppendResult(infoPtr->interp, "element ", buffer,
" missing from sublist \"", TclGetString(objPtr), "\"",
NULL);
- Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT",
+ Tcl_SetErrorCode(infoPtr->interp, "TCL", "OPERATION", "LSORT",
"INDEXFAILED", NULL);
infoPtr->resultCode = TCL_ERROR;
return NULL;