LargeInteger.st
changeset 18845 ee0ed4f54c44
parent 18709 e3365e522281
child 18847 bb459d34d125
--- 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$'
 ! !
+