summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2010-08-11 23:13:49 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2010-08-11 23:13:49 (GMT)
commitd4439781ca7806d539585ab1e454657ed8e2bda7 (patch)
treef869a7da81f7e09914329a300eb627653ff7f4b0 /generic
parente903e08c727987af3ddea0475f5803e87366a50c (diff)
downloadtcl-d4439781ca7806d539585ab1e454657ed8e2bda7.zip
tcl-d4439781ca7806d539585ab1e454657ed8e2bda7.tar.gz
tcl-d4439781ca7806d539585ab1e454657ed8e2bda7.tar.bz2
* generic/tclBasic.c (TclNRYieldToObjCmd): fixed bad copypasta
snafu. Thanks to Andy Goth for finding the bug.
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 ef272d3..5fd559d 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.459 2010/07/24 06:45:01 nijtmans Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.460 2010/08/11 23:13:50 msofer Exp $
*/
#include "tclInt.h"
@@ -8590,7 +8590,7 @@ TclNRYieldToObjCmd(
NULL);
iPtr->execEnvPtr = corPtr->eePtr;
- return TclNRYieldObjCmd(clientData, interp, objc-1, objv+1);
+ return TclNRYieldObjCmd(clientData, interp, 1, objv);
}
static int