Fixing bug related to a head fail optmization that skips a throw

1 files changed, 1 insertions, 1 deletions

diff --git a/lpcode.c b/lpcode.c
index c5869e8..6cf2933 100644
--- a/lpcode.c
+++ b/lpcode.c
@@ -308,7 +308,7 @@ static int getfirst (TTree *tree, const Charset *follow, Charset *firstset) {
       return 0;
     }
     case TThrow: {  /* labeled failure: must always throw the label */
-      loopset(i, firstset->cs[i] = follow->cs[i]); /* follow = fullset(?) */
+      loopset(i, firstset->cs[i] = fullset->cs[i]);
       return 1;
     } 
     case TChoice: {