diff options
| author | nijtmans <nijtmans> | 2008-07-13 23:15:21 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-07-13 23:15:21 (GMT) |
| commit | ad35d9b5b7a3de682d371c0bb686815f1c5e849e (patch) | |
| tree | aacaf7cde84808f89893f7542a9a079c3e8603b1 /generic/tclInterp.c | |
| parent | 28f4419947aa4b448501687014bb415dc7096511 (diff) | |
| download | tcl-ad35d9b5b7a3de682d371c0bb686815f1c5e849e.zip tcl-ad35d9b5b7a3de682d371c0bb686815f1c5e849e.tar.gz tcl-ad35d9b5b7a3de682d371c0bb686815f1c5e849e.tar.bz2 | |
more consistent wrong # arg messages: change all messages containing ?options? to the form ?-option value ...?
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; |