diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
| commit | 7bea42569d8c2ccb8584155f706392d5812ec428 (patch) | |
| tree | 4f61b95593d24393fff08344b408215836a58a05 /generic/tclCmdIL.c | |
| parent | f0bba60202785e634e8e1712db5cc37246d36e32 (diff) | |
| download | tcl-7bea42569d8c2ccb8584155f706392d5812ec428.zip tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.gz tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.bz2 | |
whopper change; now passes test suite on OSX
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index db216e5..34c1db5 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2612,7 +2612,7 @@ Tcl_LrepeatObjCmd( } if (elementCount < 0) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "bad count \"%d\": must be integer >= 0", elementCount)); + "bad count \"%d\": should be integer >= 0", elementCount)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LREPEAT", "NEGARG", NULL); return TCL_ERROR; @@ -3053,7 +3053,7 @@ Tcl_LsearchObjCmd( Tcl_DecrRefCount(startPtr); } Tcl_SetObjResult(interp, Tcl_NewStringObj( - "\"-index\" option must be followed by list index", + "\"-index\" option should be followed by list index", -1)); Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL); return TCL_ERROR; @@ -3691,7 +3691,7 @@ Tcl_LsortObjCmd( case LSORT_COMMAND: if (i == objc-2) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "\"-command\" option must be followed " + "\"-command\" option should be followed " "by comparison command", -1)); Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL); sortInfo.resultCode = TCL_ERROR; @@ -3716,7 +3716,7 @@ Tcl_LsortObjCmd( if (i == objc-2) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "\"-index\" option must be followed by list index", + "\"-index\" option should be followed by list index", -1)); Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL); sortInfo.resultCode = TCL_ERROR; @@ -3767,7 +3767,7 @@ Tcl_LsortObjCmd( case LSORT_STRIDE: if (i == objc-2) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "\"-stride\" option must be " + "\"-stride\" option should be " "followed by stride length", -1)); Tcl_SetErrorCode(interp, "TCL", "ARGUMENT", "MISSING", NULL); sortInfo.resultCode = TCL_ERROR; @@ -3779,7 +3779,7 @@ Tcl_LsortObjCmd( } if (groupSize < 2) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "stride length must be at least 2", -1)); + "stride length should be at least 2", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT", "BADSTRIDE", NULL); sortInfo.resultCode = TCL_ERROR; @@ -3876,7 +3876,7 @@ Tcl_LsortObjCmd( if (group) { if (length % groupSize) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "list size must be a multiple of the stride length", + "list size should be a multiple of the stride length", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT", "BADSTRIDE", NULL); @@ -3897,7 +3897,7 @@ Tcl_LsortObjCmd( if (groupOffset < 0 || groupOffset >= groupSize) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "when used with \"-stride\", the leading \"-index\"" - " value must be within the group", -1)); + " value should be within the group", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "LSORT", "BADINDEX", NULL); sortInfo.resultCode = TCL_ERROR; |