function element = pop(self)
%increase the stack pointer and return 'top' node data
% usage :
%   element = pop(stack)

% $Id$

if isempty(self.stack_pointer)
  element = {};
else
  element = data(self.stack_pointer);
  self.stack_pointer = next(self.stack_pointer);
end