State now uses a Vector instead of a Map

1 files changed, 3 insertions, 3 deletions

diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb
index 3a65fb9..a9ba9e2 100644
--- a/src/kompsos-pretty_print.adb
+++ b/src/kompsos-pretty_print.adb
@@ -97,10 +97,10 @@ package body Kompsos.Pretty_Print is
         if Item.Actual.Is_Empty then
             SU.Append (Result, Latin.HT & "N/A" & Latin.LF);
         else
-            for Iter in Item.Actual.Iterate loop
+            for Bind of Item.Actual loop
                 SU.Append (Result, Latin.HT &
-                    Image (Binding_Maps.Key (Iter)) & " => " &
-                    Image (Binding_Maps.Element (Iter)) & Latin.LF);
+                    Image (Bind.Key) & " => " &
+                    Image (Bind.Elem) & Latin.LF);
             end loop;
         end if;
         return SU.To_String (Result);