Changeset 6351 for lang/smalltalk/misc/gost.st

Timestamp:

02/08/08 00:52:06 (5 years ago)

Author:

murky-satyr

Message:

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

Files:

• lang/smalltalk/misc/gost.st (modified) (2 diffs)

lang/smalltalk/misc/gost.st

@@ -124 +124 @@
 %% a
   ^self bindWithArguments: a!
+base: n
+  "Shortcut for Integer class>>#readFrom:radix:."
+  ^Integer readFrom: (ReadStream on: self) radix: n!
 
 !SequenceableCollection methodsFor: 'golf'!
@@ -190 +193 @@
 \ n
   ^self bitXor: n!
+base: n
+  "Perform #printStringRadix: without BBr in front of it."
+  ^((self printStringRadix: n) subStrings: $r) last!
 
 !Boolean methodsFor: 'golf'!