Parser tests, left recursion test

1 files changed, 8 insertions, 5 deletions

diff --git a/src/packrat-parsers.adb b/src/packrat-parsers.adb
index 01c4677..7c89984 100644
--- a/src/packrat-parsers.adb
+++ b/src/packrat-parsers.adb
@@ -602,12 +602,15 @@ package body Packrat.Parsers is
             Processed : Result_Sets.Set;
         begin
             if Salt.Status = Failure then
-                Ada.Strings.Unbounded.Append
-                   (Context.Error_String,
-                    Packrat.Errors.Encode (Traits.Label_Enum'Image (Label), Start));
+                declare
+                    Error : String := Packrat.Errors.Encode
+                        (Traits.Label_Enum'Image (Label), Start);
+                begin
+                    if Ada.Strings.Unbounded.Index (Context.Error_String, Error) = 0 then
+                        Ada.Strings.Unbounded.Append (Context.Error_String, Error);
+                    end if;
+                end;
                 return Salt;
-            else
-                Context.Error_String := +"";
             end if;
             for R of Salt.Results loop
                 Current :=