parse thru fix

demonwnb · Jan 21, 2013 · ee6db43 · ee6db43
1 parent a6077e8
commit ee6db43
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/u-parse.c b/src/core/u-parse.c
@@ -520,7 +520,7 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 				}
 				else {
 					i = Find_Str_Str(series, 0, index, series->tail, 1, VAL_SERIES(item), VAL_INDEX(item), VAL_LEN(item), HAS_CASE(parse));
-					if (is_thru) i += VAL_LEN(item);
+					if (i != NOT_FOUND && is_thru) i += VAL_LEN(item);
 				}
 				if (i >= series->tail) i = NOT_FOUND;
 			}