diff options
author | nijtmans <nijtmans@noemail.net> | 2008-07-13 23:15:21 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2008-07-13 23:15:21 (GMT) |
commit | 8c30ab9d75b1daed5f852f0d917fd53b50048545 (patch) | |
tree | aacaf7cde84808f89893f7542a9a079c3e8603b1 /generic/tclInterp.c | |
parent | 94ce7c788f15947d1c379e48ec20d421866c5333 (diff) | |
download | tcl-8c30ab9d75b1daed5f852f0d917fd53b50048545.zip tcl-8c30ab9d75b1daed5f852f0d917fd53b50048545.tar.gz tcl-8c30ab9d75b1daed5f852f0d917fd53b50048545.tar.bz2 |
more consistent wrong # arg messages: change all messages containing ?options? to the form ?-option value ...?
FossilOrigin-Name: 7dcec0e5e289de4aed4290b3ee93e1e425c765e0
Diffstat (limited to 'generic/tclInterp.c')
-rw-r--r-- | generic/tclInterp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index c4f8515..f2975d0 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.87 2008/07/13 09:03:35 msofer Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.88 2008/07/13 23:15:23 nijtmans Exp $ */ #include "tclInt.h" @@ -928,7 +928,7 @@ Tcl_InterpObjCmd( int limitType; if (objc < 4) { - Tcl_WrongNumArgs(interp, 2, objv, "path limitType ?options?"); + Tcl_WrongNumArgs(interp, 2, objv, "path limitType ?-option value ...?"); return TCL_ERROR; } slaveInterp = GetInterp(interp, objv[2]); @@ -2502,7 +2502,7 @@ SlaveObjCmd( int limitType; if (objc < 3) { - Tcl_WrongNumArgs(interp, 2, objv, "limitType ?options?"); + Tcl_WrongNumArgs(interp, 2, objv, "limitType ?-option value ...?"); return TCL_ERROR; } if (Tcl_GetIndexFromObj(interp, objv[2], limitTypes, "limit type", 0, @@ -4230,7 +4230,7 @@ SlaveCommandLimitCmd( return TCL_OK; } else if ((objc-consumedObjc) & 1 /* isOdd(objc-consumedObjc) */) { Tcl_WrongNumArgs(interp, consumedObjc, objv, - "?-option? ?value? ?-option value ...?"); + "?-option value ...?"); return TCL_ERROR; } else { int i, scriptLen = 0, limitLen = 0; @@ -4418,7 +4418,7 @@ SlaveTimeLimitCmd( return TCL_OK; } else if ((objc-consumedObjc) & 1 /* isOdd(objc-consumedObjc) */) { Tcl_WrongNumArgs(interp, consumedObjc, objv, - "?-option? ?value? ?-option value ...?"); + "?-option value ...?"); return TCL_ERROR; } else { int i, scriptLen = 0, milliLen = 0, secLen = 0; |