summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclBasic.c4
2 files changed, 6 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index ccae0a5..6cc7450 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2010-08-11 Miguel Sofer <msofer@users.sf.net>
+ * generic/tclBasic.c (TclNRYieldToObjCmd): fixed bad copypasta
+ snafu. Thanks to Andy Goth for finding the bug.
+
2010-08-10 Jeff Hobbs <jeffh@ActiveState.com>
* generic/tclUtil.c (TclByteArrayMatch): patterns may not be
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