--::::::::::
--stalpten.adb
--::::::::::
package body Stack_Lpt_En is

function Empty return boolean is
    begin
       return Stk.Empty(Stack);
    end Empty;
    ------------------------------------------------------
function Top_Of return Object_Type is
   begin -- Top_Of
      return STK.Top_Of (Stack);
   end Top_Of;
   ---------------------------------------------------------------------
procedure Pop is
   begin -- Pop
      STK.Pop (Stack);
   end Pop;
   ---------------------------------------------------------------------
function Pop return Object_Type is
    Answer: Object_Type;
    begin
       Stk.Pop (Stack, Answer);
       return Answer;
    end Pop;
    ------------------------------------------------------
procedure Push (Object: in out Object_Type) is
    begin
       Stk.Push (Object, Stack);
    end Push;
    ------------------------------------------------------

end Stack_Lpt_En;