
Stack subclass: #SizedStack
  instanceVariableNames: 
    'size '
  classVariableNames: ''
  poolDictionaries: '' !


!SizedStack class methods ! !



!SizedStack methods !
   
initialize
    super  initialize.
    size := 0!
  
pop
    size := size - 1.
    ^  super pop!
   
push: anObject
     size := size + 1.
     super push: anObject!
  
size
    ^ size! !
