home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / prelude / symbol < prev    next >
Encoding:
Text File  |  1987-12-30  |  273 b   |  15 lines
  1. Class Symbol
  2. [
  3.      == aSymbol
  4.           ^ <SameTypeOfObject self aSymbol >
  5.                ifTrue:  [<SymbolCompare self aSymbol >]
  6.                ifFalse: [false]
  7. |
  8.      printString
  9.           ^ <SymbolPrintString self>
  10. |
  11.      asString
  12.           ^ <SymbolAsString self>
  13. ]
  14.  
  15.