Changed No_Loops_Introduced to Loops_Introduced

1 files changed, 4 insertions, 4 deletions

diff --git a/src/packrat-parse_graphs.adb b/src/packrat-parse_graphs.adb
index c44500f..ef425d7 100644
--- a/src/packrat-parse_graphs.adb
+++ b/src/packrat-parse_graphs.adb
@@ -439,7 +439,7 @@ package body Packrat.Parse_Graphs is
     end Valid_Starts_Finishes;
 
 
-    function No_Loops_Introduced
+    function Loops_Introduced
            (Container : in Parse_Graph;
             Parent    : in Finished_Token;
             Subtokens : in Finished_Token_Array)
@@ -461,9 +461,9 @@ package body Packrat.Parse_Graphs is
             end if;
         end Looper;
     begin
-        return not Container.Contains (Parent.Token) or else
-            (for all Sub of Subtokens => not Looper (Sub));
-    end No_Loops_Introduced;
+        return Container.Contains (Parent.Token) and then
+            (for some Sub of Subtokens => Looper (Sub));
+    end Loops_Introduced;
 
 
     function Is_Sorted