home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / DNeStr / link.e < prev   
Encoding:
Text File  |  1999-06-05  |  227 b   |  23 lines
  1. class LINK[E]
  2.  
  3. creation make
  4.  
  5. feature
  6.  
  7.    value: E;
  8.  
  9.    next: LINK[E];
  10.  
  11.    make(v: like value; n: like next) is
  12.       do
  13.      value := v;
  14.      next := n;
  15.       end;
  16.  
  17.    set_next(n: like next) is
  18.       do
  19.      next := n;
  20.       end;
  21.  
  22. end
  23.