diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-07 11:18:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-07 11:18:37 (GMT) |
| commit | cd2794b2d3b8f3e2bf8061adb10f8910f39dc00a (patch) | |
| tree | 9c0d81688b7c69c41cd9b323933604439e5fe96b | |
| parent | f198eb8b6b1ca01ac5cacc1e5b828d7c798c216f (diff) | |
| parent | 74330f28739f9f3c3020e7245ccf6710251534ae (diff) | |
| download | tcl-cd2794b2d3b8f3e2bf8061adb10f8910f39dc00a.zip tcl-cd2794b2d3b8f3e2bf8061adb10f8910f39dc00a.tar.gz tcl-cd2794b2d3b8f3e2bf8061adb10f8910f39dc00a.tar.bz2 | |
Merge 8.7
| -rw-r--r-- | generic/tclCmdIL.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index f3d893d..27c4eec 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3309,7 +3309,7 @@ Tcl_LsearchObjCmd( if (wide < 1) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "stride length must be at least 1", -1)); - Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT", + Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSEARCH", "BADSTRIDE", NULL); result = TCL_ERROR; goto done; |