1 files changed, 3 insertions, 3 deletions
diff --git a/lptree.c b/lptree.c
index 2044a5c..700398b 100644
--- a/lptree.c
+++ b/lptree.c
@@ -748,7 +748,7 @@ static int lp_recovery (lua_State *L) {
        int n = lua_gettop(L);
        TTree *tree = newrootlab2sib(L, TRecov);
  if (n == 2) {  /* catches fail as default */
-                setlabel(treelabelset(tree), LFAIL);
+                /*setlabel(treelabelset(tree), LFAIL);  recovery does not catch regular fail */
  } else {
                int i;
                for (i = 3; i <= n; i++) {
@@ -1361,8 +1361,8 @@ static struct luaL_Reg metareg[] = {
 };
-int luaopen_lpeglabel (lua_State *L);  /* labeled failure */
+int luaopen_lpeglabelrec (lua_State *L);  /* labeled failure */
-int luaopen_lpeglabel (lua_State *L) { /* labeled failure */
+int luaopen_lpeglabelrec (lua_State *L) { /* labeled failure */
  luaL_newmetatable(L, PATTERN_T);
  lua_pushnumber(L, MAXBACK);  /* initialize maximum backtracking */
  lua_setfield(L, LUA_REGISTRYINDEX, MAXSTACKIDX);

diff --git a/lptree.c b/lptree.c index 2044a5c..700398b 100644 --- a/lptree.c +++ b/lptree.c
@@ -748,7 +748,7 @@ static int lp_recovery (lua_State *L) {
748	int n = lua_gettop(L);	748	int n = lua_gettop(L);
749	TTree *tree = newrootlab2sib(L, TRecov);	749	TTree *tree = newrootlab2sib(L, TRecov);
750	if (n == 2) { /* catches fail as default */	750	if (n == 2) { /* catches fail as default */
751	setlabel(treelabelset(tree), LFAIL);	751	/setlabel(treelabelset(tree), LFAIL); recovery does not catch regular fail /
752	} else {	752	} else {
753	int i;	753	int i;
754	for (i = 3; i <= n; i++) {	754	for (i = 3; i <= n; i++) {
@@ -1361,8 +1361,8 @@ static struct luaL_Reg metareg[] = {
1361	};	1361	};
1362		1362
1363		1363
1364	int luaopen_lpeglabel (lua_State L); / labeled failure */	1364	int luaopen_lpeglabelrec (lua_State L); / labeled failure */
1365	int luaopen_lpeglabel (lua_State L) { / labeled failure */	1365	int luaopen_lpeglabelrec (lua_State L) { / labeled failure */
1366	luaL_newmetatable(L, PATTERN_T);	1366	luaL_newmetatable(L, PATTERN_T);
1367	lua_pushnumber(L, MAXBACK); /* initialize maximum backtracking */	1367	lua_pushnumber(L, MAXBACK); /* initialize maximum backtracking */
1368	lua_setfield(L, LUA_REGISTRYINDEX, MAXSTACKIDX);	1368	lua_setfield(L, LUA_REGISTRYINDEX, MAXSTACKIDX);