Changeset 5926 for lang/smalltalk

Timestamp:

01/31/08 08:19:41 (10 months ago)

Author:

murky-satyr

Message:

lang/smalltalk/misc/gost.st: Miner fixes.

Files:

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

lang/smalltalk/misc/gost.st

@@ -96 +96 @@
 , o
   ^(UnicodeString with: self), (o isCharacter ifTrue: [ {o} ] ifFalse: [ o ])!
-+ n
-  ^Character codePoint: codePoint + n!
++ o
+  o isInteger and: [ ^Character codePoint: codePoint + n ]
+  self doesNotUnderstand: (Message selector: #+ arguments: {o})!
 - o
   o isInteger   and: [ ^Character codePoint: codePoint - o ].
-  o isCharacter and: [ ^codePoint - o codePoint ]!
+  o isCharacter and: [ ^codePoint - o codePoint ]
+  self doesNotUnderstand: (Message selector: #- arguments: {o})!
 * n
-  ^UnicodeString new: n withAll: self!
+  o isInteger and: [ ^UnicodeString new: n withAll: self ]
+  self doesNotUnderstand: (Message selector: #* arguments: {o})!
 ~ c
-  ^UnicodeString withAll:
-    ((codePoint to: c codePoint) collect: [:v| Character codePoint: v ])!
+  o isCharacter and: [ ^UnicodeString withAll:
+    ((codePoint to: c codePoint) collect: [:v| Character codePoint: v ]) ]
+  self doesNotUnderstand: (Message selector: #~ arguments: {o})!
 <- o
   ^Golf.Dic at: self put: o!
@@ -228 +232 @@
   ^(self contents subStrings: (Golf.Dic at: $/)) \ b!
 
+
 "[ Not-so-golf Additions ]"
 
@@ -300 +305 @@
 
 !SelfAssigner class methodsFor: 'initialization'!
-initialize
+isolate
   superclass := nil!
 
@@ -309 +314 @@
   value := o!
 !
-SelfAssigner initialize!
+SelfAssigner isolate!