Swapped out crypto package for something smaller, revised other code and readme/notes slightly

1 files changed, 5 insertions, 14 deletions

diff --git a/src/bundles-containers.adb b/src/bundles-containers.adb
index 8ba0d30..029d7c0 100644
--- a/src/bundles-containers.adb
+++ b/src/bundles-containers.adb
@@ -20,24 +20,15 @@ package body Bundles.Containers is
         use type Bundle_Maps.Cursor;
         use type Bundle_Vectors.Vector;
 
-        procedure Update_Bundle
-               (B : in out Bundle) is
-        begin
-            Add (B, Item);
-        end Update_Bundle;
-
-        procedure Update_Vector
-               (C : in     Candidates.CandidateID;
-                V : in out Bundle_Vectors.Vector) is
-        begin
-            V.Update_Element (V.First_Index, Update_Bundle'Access);
-        end Update_Vector;
-
         Place : Candidates.CandidateID := Item (Given_Prefs.Preference_Range'First);
         Current_Cursor : Bundle_Maps.Cursor := BMap.Find (Place);
     begin
         if Current_Cursor /= Bundle_Maps.No_Element then
-            BMap.Update_Element (Current_Cursor, Update_Vector'Access);
+            declare
+                Vec_Ref : Bundle_Maps.Reference_Type := BMap.Reference (Current_Cursor);
+            begin
+                Add (Vec_Ref.Reference (Vec_Ref.First_Index), Item);
+            end;
         else
             declare
                 New_Bundle : Bundle := Empty_Bundle;