diff options
Diffstat (limited to 'src/packrat-graphs.adb')
-rw-r--r-- | src/packrat-graphs.adb | 6 |
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; |