home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / stxxxxxxb < prev    next >
Encoding:
Text File  |  1990-05-23  |  381 b   |  16 lines
  1. temp <- <primitive 110 2 >
  2. <primitive 112 temp 1        " next " \
  3.     #( #[ 17 16 192 113 16 97 33 241 96 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " first " \
  7.     #( #[ 80 97 81 241 96 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 98 #Fib \
  11.     <primitive 97 #Fib #Generator #adfs::Flash-One.$.Projects.!SmallTalk.Tests.fib \
  12.     #(  #lastNumber #nextToLastNumber ) \
  13.     #( #next #first  ) \
  14.     temp 2 3 > >
  15.  
  16.