From ce3d96238d0b5068a0abfb8d056e2993048f8637 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 19 Jan 2021 13:25:33 +1100
Subject: Slight improvement to curtailment in Memoize and Continue

---
 src/packrat-parsers.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/packrat-parsers.adb b/src/packrat-parsers.adb
index ed0f3d3..abb2736 100644
--- a/src/packrat-parsers.adb
+++ b/src/packrat-parsers.adb
@@ -170,8 +170,6 @@ package body Packrat.Parsers is
                         Result.Curtails.Exclude (Combo);
                     elsif Result.Curtails.Contains (Combo) then
                         Result.Curtails.Replace (Combo, Left);
-                    else
-                        Result.Curtails.Insert (Combo, Left);
                     end if;
                 else
                     Result.Curtails.Exclude (Combo);
@@ -345,6 +343,7 @@ package body Packrat.Parsers is
         Salt, Temp : Combinator_Result;
         Adjust : Result_Sets.Set;
     begin
+        Salt.Curtails := From.Curtails;
         for R of From.Results loop
             Temp := Next (Input, Context, R.Finish + 1);
             Adjust.Clear;
-- 
cgit