home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / false.st < prev    next >
Encoding:
Text File  |  1986-10-19  |  436 b   |  25 lines
  1.   ifTrue: [count <- count - 1. ^ dict currentKey]
  2.             ifFalse: [(count <- dict next) isNil
  3.                     ifTrue: [^ nil] ]].
  4.         ^ nil
  5.  
  6. ]
  7. rg asFloat
  8.  
  9. |    = arg
  10.         ^ value = arg asFloat
  11.  
  12. |       sin
  13.                 ^ <primitive 81 value>
  14.  
  15. |       cos
  16.                 ^ <primitive 82 value>
  17.  
  18. |       tan
  19.                 ^ <primitive 81 value> / <primitive 82 value>
  20.  
  21. |       asFloat
  22.                 ^ value
  23.  
  24. |       printString
  25.                 ^ value a