diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-26 16:17:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-26 16:17:54 (GMT) |
| commit | ff4d10ce27761ddd1198159b6000f0194cd35c2c (patch) | |
| tree | efc551e92c5378671aab2bdea5e658275327642f /generic | |
| parent | 3a13b3b940216a3791902631b76202e243d7a52e (diff) | |
| parent | 6e6d624ec313279bd797e6db63464f8b3f215e1e (diff) | |
| download | tcl-ff4d10ce27761ddd1198159b6000f0194cd35c2c.zip tcl-ff4d10ce27761ddd1198159b6000f0194cd35c2c.tar.gz tcl-ff4d10ce27761ddd1198159b6000f0194cd35c2c.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 4 | ||||
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index d2a017d..e12381c 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -8035,8 +8035,8 @@ MathFuncWrongNumArgs( } } Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "too %s arguments for math function \"%s\"", - (found < expected ? "few" : "many"), name)); + "%s arguments for math function \"%s\"", + (found < expected ? "not enough" : "too many"), name)); Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", NULL); } diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index 9dda453..f3428d1 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -1065,7 +1065,7 @@ TclCompileLindexCmd( int i, idx, numWords = parsePtr->numWords; /* - * Quit if too few args. + * Quit if not enough args. */ /* TODO: Consider support for compiling expanded args. */ |