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