--::::::::::
--sttalpit.adb
--::::::::::
package body Stack_Tag_Lpt.Iterators is

procedure Top_Down (Stack  : in out Stack_Type;
                    Process:        Process_Type) is
   begin
      it_lps.Top_Down (Stack.Stack, Process);
   end Top_Down;
   ------------------------------------------------------
procedure Bottom_Up (Stack : in out Stack_Type;
                    Process:        Process_Type) is
   begin
      it_lps.Bottom_Up (Stack.Stack, Process);
   end Bottom_Up;
   ------------------------------------------------------
end Stack_Tag_Lpt.Iterators;