Clarified Cursor details in Packrat.Graphs, added test for Find

1 files changed, 3 insertions, 3 deletions

diff --git a/src/packrat-graphs.adb b/src/packrat-graphs.adb
index 1206a89..1411259 100644
--- a/src/packrat-graphs.adb
+++ b/src/packrat-graphs.adb
@@ -471,7 +471,7 @@ package body Packrat.Graphs is
     begin
         return Result : Reversible_Iterator do
             Result.My_Container := This'Unrestricted_Access;
-            Result.My_Position := No_Position;
+            Result.My_Position := Cursor (No_Position);
         end return;
     end Iterate;
 
@@ -483,7 +483,7 @@ package body Packrat.Graphs is
     begin
         return Result : Reversible_Iterator do
             Result.My_Container := This'Unrestricted_Access;
-            Result.My_Position := No_Position;
+            Result.My_Position := Cursor (No_Position);
         end return;
     end Iterate_Subtree;
 
@@ -495,7 +495,7 @@ package body Packrat.Graphs is
     begin
         return Result : Forward_Iterator do
             Result.My_Container := This'Unrestricted_Access;
-            Result.My_Position := No_Position;
+            Result.My_Position := Cursor (No_Position);
         end return;
     end Iterate_Choice;