Tcl Source Code

Artifact 7f3173343ee106dc52c42917efa8fc4880abf9f1c7209bc600e27ff3e2a9758a:

Attachment "lsearch.diff" to ticket [fad64a857e] added by emiliano 2020-05-06 23:29:49. (unpublished)

---

Index: generic/tclCmdIL.c
==================================================================
--- generic/tclCmdIL.c
+++ generic/tclCmdIL.c
@@ -3303,11 +3303,11 @@
 		goto done;
 	    }
 	    if (groupSize < 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;
 	    }
 	    i++;