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/tclUtil.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/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index ae3adae..4c5bc51 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -3612,7 +3612,7 @@ TclGetIntForIndex( if (interp != NULL) { bytes = Tcl_GetString(objPtr); Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "bad index \"%s\": must be integer?[+-]integer? or" + "bad index \"%s\": should be integer?[+-]integer? or" " end?[+-]integer?", bytes)); if (!strncmp(bytes, "end-", 4)) { bytes += 4; @@ -3705,7 +3705,7 @@ SetEndOffsetFromAny( (size_t)((length > 3) ? 3 : length)) != 0)) { if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "bad index \"%s\": must be end?[+-]integer?", bytes)); + "bad index \"%s\": should be end?[+-]integer?", bytes)); Tcl_SetErrorCode(interp, "TCL", "VALUE", "INDEX", NULL); } return TCL_ERROR; @@ -3740,7 +3740,7 @@ SetEndOffsetFromAny( badIndexFormat: if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "bad index \"%s\": must be end?[+-]integer?", bytes)); + "bad index \"%s\": should be end?[+-]integer?", bytes)); Tcl_SetErrorCode(interp, "TCL", "VALUE", "INDEX", NULL); } return TCL_ERROR; |