package body BC.Indefinite_Unmanaged_Containers.Collections is

   function Current_Item_Ptr (It : Collection_Iterator) return Item_Ptr is
      C : Collection'Class
     renames Collection'Class (It.For_The_Container.all);
   begin
      null;
   end Current_Item_Ptr;

   procedure Delete_Item_At (It : in out Collection_Iterator) is
      C : Collection'Class
        renames Collection'Class (It.For_The_Container.all);
   begin
      null;
   end Delete_Item_At;

end BC.Indefinite_Unmanaged_Containers.Collections;