summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-10-31 20:25:32 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-10-31 20:25:32 (GMT)
commit6a2f782a77fc2a06901f8da0ee6d260154410e93 (patch)
tree37fcaf49319474a332194fbcb04e7f550c29a7ec /generic/tclBasic.c
parentefa238ed7afcfce380fc18e6c869836f3f451bf9 (diff)
downloadtcl-6a2f782a77fc2a06901f8da0ee6d260154410e93.zip
tcl-6a2f782a77fc2a06901f8da0ee6d260154410e93.tar.gz
tcl-6a2f782a77fc2a06901f8da0ee6d260154410e93.tar.bz2
[Bug 2889593]: Make [expr round()] give the right error.
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 77e9a31..90b6c21 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.295.2.13 2009/08/25 21:01:05 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.295.2.14 2009/10/31 20:25:32 dkf Exp $
*/
#include "tclInt.h"
@@ -6800,7 +6800,7 @@ ExprRoundFunc(
int type;
if (objc != 2) {
- MathFuncWrongNumArgs(interp, 1, objc, objv);
+ MathFuncWrongNumArgs(interp, 2, objc, objv);
return TCL_ERROR;
}