home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / test.p < prev    next >
Text File  |  1986-10-19  |  331b  |  16 lines
  1. temp <- <primitive 110 2 >
  2. <primitive 112 temp 1        " set: " \
  3.     #( #[ 33 96 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " printString " \
  7.     #( #[ 48 16 169 11 17 243 245] \
  8.     #( 'test value '  ) ) >
  9.  
  10. <primitive 98 #Test \
  11.     <primitive 97 #Test #Object #Smalltalk:prelude/test.st \
  12.     #(  #var ) \
  13.     #( #set: #printString  ) \
  14.     temp 2 3 > >
  15.  
  16.