home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / MFSO / fruit.e < prev   
Encoding:
Text File  |  1999-06-05  |  119 b   |  13 lines
  1. class FRUIT
  2.  
  3. feature
  4.  
  5.    seed: INTEGER;
  6.  
  7.    make (new_seed : INTEGER) is
  8.       do
  9.      seed := new_seed
  10.       end
  11.    
  12. end
  13.