Changeset 6351 for lang/smalltalk

Show
Ignore:
Timestamp:
02/08/08 00:52:06 (10 months ago)
Author:
murky-satyr
Message:

lang/smalltalk/misc/gost.st: Integer>>#base: String>>#base:

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/smalltalk/misc/gost.st

    r6350 r6351  
    124124%% a 
    125125  ^self bindWithArguments: a! 
     126base: n 
     127  "Shortcut for Integer class>>#readFrom:radix:." 
     128  ^Integer readFrom: (ReadStream on: self) radix: n! 
    126129 
    127130!SequenceableCollection methodsFor: 'golf'! 
    … …  
    190193\ n 
    191194  ^self bitXor: n! 
     195base: n 
     196  "Perform #printStringRadix: without BBr in front of it." 
     197  ^((self printStringRadix: n) subStrings: $r) last! 
    192198 
    193199!Boolean methodsFor: 'golf'!