summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdAH.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-10-23 03:28:09 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-10-23 03:28:09 (GMT)
commit2c7191c9a51dde1c2cd6c52ad41426d4e60377f8 (patch)
treedba7040bf7f87fb99f8325b8f03d4c3a1e6431ff /generic/tclCmdAH.c
parent1598402d198ca92b97f5b62e7ea54b72bdd09ccf (diff)
downloadtcl-2c7191c9a51dde1c2cd6c52ad41426d4e60377f8.zip
tcl-2c7191c9a51dde1c2cd6c52ad41426d4e60377f8.tar.gz
tcl-2c7191c9a51dde1c2cd6c52ad41426d4e60377f8.tar.bz2
* generic/tclCmdAH.c (ForNextCallback): handle TCL_CONTINUE in
the for body [Bug 2186888].
Diffstat (limited to 'generic/tclCmdAH.c')
-rw-r--r--generic/tclCmdAH.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index 2e9b5b9..724e80b 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdAH.c,v 1.107 2008/10/17 16:32:58 dgp Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.108 2008/10/23 03:28:09 msofer Exp $
*/
#include "tclInt.h"
@@ -1763,7 +1763,7 @@ ForNextCallback(
char *msg = data[3];
- if (result == TCL_OK) {
+ if ((result == TCL_OK) || (result == TCL_CONTINUE)) {
/*
* TIP #280. Make invoking context available to next script.
*