diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-11-20 22:58:50 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-11-25 08:07:34 +1000 |
commit | 44fb1db8b16f6a339fadd1d313fafd012d9e58a5 (patch) | |
tree | 4848b62f8189c99edccc2b4db0220999eef97af7 /jim.c | |
parent | 73148db333e1a74d2c1bf3fe539888f6ad93a0db (diff) | |
download | jimtcl-44fb1db8b16f6a339fadd1d313fafd012d9e58a5.zip jimtcl-44fb1db8b16f6a339fadd1d313fafd012d9e58a5.tar.gz jimtcl-44fb1db8b16f6a339fadd1d313fafd012d9e58a5.tar.bz2 |
Minor message changes to match Tcl 8.6
And import some up-to-date tests from Tcl 8.6
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.c')
-rw-r--r-- | jim.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -11880,8 +11880,8 @@ static int Jim_LinsertCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const * int idx, len; Jim_Obj *listPtr; - if (argc < 4) { - Jim_WrongNumArgs(interp, 1, argv, "list index element " "?element ...?"); + if (argc < 3) { + Jim_WrongNumArgs(interp, 1, argv, "list index ?element ...?"); return JIM_ERR; } listPtr = argv[1]; @@ -11912,7 +11912,7 @@ static int Jim_LreplaceCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const Jim_Obj *newListObj; if (argc < 4) { - Jim_WrongNumArgs(interp, 1, argv, "list first last ?element element ...?"); + Jim_WrongNumArgs(interp, 1, argv, "list first last ?element ...?"); return JIM_ERR; } if (Jim_GetIndex(interp, argv[2], &first) != JIM_OK || |