--- a/LargeInteger.st Tue Oct 27 17:26:41 2015 +0100
+++ b/LargeInteger.st Tue Oct 27 17:28:29 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -1741,7 +1739,7 @@
asSmallInteger
"return a SmallInteger with same value as myself -
- the result is invalid if the receivers value cannot
+ the result is invalid if the receiver's value cannot
be represented as a SmallInteger.
Q: should we raise an exception if this happens ?"
@@ -1749,12 +1747,12 @@
value := 0.
(sign == 0) ifFalse:[
- digitByteArray reverseDo:[:aDigit |
- value := (value times:256) + aDigit
- ].
- (sign < 0) ifTrue:[
- value := value negated
- ]
+ digitByteArray reverseDo:[:aDigit |
+ value := (value times:256) + aDigit
+ ].
+ (sign < 0) ifTrue:[
+ value := value negated
+ ]
].
^ value
!
@@ -1779,7 +1777,7 @@
!
coerce:aNumber
- "convert the argument aNumber into an instance of the receivers class and return it."
+ "convert the argument aNumber into an instance of the receiver's class and return it."
^ aNumber asLargeInteger
!
@@ -5496,3 +5494,4 @@
version_CVS
^ '$Header$'
! !
+