summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-10-31 20:18:43 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-10-31 20:18:43 (GMT)
commitc2fed0e61c584f3a6d54a0c4479d43d8982505db (patch)
treea8229d10ddb9f4dd384a8b4244f16f718f6ecf07 /generic
parentfa6b7f2da5eb55b89dee6899b3421c3490bed77c (diff)
downloadtcl-c2fed0e61c584f3a6d54a0c4479d43d8982505db.zip
tcl-c2fed0e61c584f3a6d54a0c4479d43d8982505db.tar.gz
tcl-c2fed0e61c584f3a6d54a0c4479d43d8982505db.tar.bz2
[Bug 2889593]: Make [expr round()] give the right error.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 7064b86..68fe439 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -16,7 +16,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.404 2009/09/11 20:13:27 dgp Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.405 2009/10/31 20:18:43 dkf Exp $
*/
#include "tclInt.h"
@@ -7710,7 +7710,7 @@ ExprRoundFunc(
int type;
if (objc != 2) {
- MathFuncWrongNumArgs(interp, 1, objc, objv);
+ MathFuncWrongNumArgs(interp, 2, objc, objv);
return TCL_ERROR;
}