Changeset 5930 for lang/smalltalk/misc

Show
Ignore:
Timestamp:
01/31/08 09:48:16 (6 years ago)
Author:
murky-satyr
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/smalltalk/misc/gost.st

    r5926 r5930  
    9797  ^(UnicodeString with: self), (o isCharacter ifTrue: [ {o} ] ifFalse: [ o ])! 
    9898+ o 
    99   o isInteger and: [ ^Character codePoint: codePoint + n ] 
     99  o isInteger and: [ ^Character codePoint: codePoint + o ]. 
    100100  self doesNotUnderstand: (Message selector: #+ arguments: {o})! 
    101101- o 
    102102  o isInteger   and: [ ^Character codePoint: codePoint - o ]. 
    103   o isCharacter and: [ ^codePoint - o codePoint ] 
     103  o isCharacter and: [ ^codePoint - o codePoint ]. 
    104104  self doesNotUnderstand: (Message selector: #- arguments: {o})! 
    105 * n 
    106   o isInteger and: [ ^UnicodeString new: n withAll: self ] 
     105* o 
     106  o isInteger and: [ ^UnicodeString new: o withAll: self ]. 
    107107  self doesNotUnderstand: (Message selector: #* arguments: {o})! 
    108 ~ c 
     108~ o 
    109109  o isCharacter and: [ ^UnicodeString withAll: 
    110     ((codePoint to: c codePoint) collect: [:v| Character codePoint: v ]) ] 
     110    ((codePoint to: o codePoint) collect: [:v| Character codePoint: v ]) ]. 
    111111  self doesNotUnderstand: (Message selector: #~ arguments: {o})! 
    112112<- o