Complex.st
changeset 18836 63832ff17b6c
parent 16742 4416b836c741
child 18858 2968df243134
child 20408 057d56a62260
--- a/Complex.st	Tue Oct 27 16:04:59 2015 +0100
+++ b/Complex.st	Tue Oct 27 16:05:15 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  This is a Manchester Goodie.  It is distributed freely on condition
  that you observe these conditions in respect of the whole Goodie, and on
@@ -19,6 +21,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 ArithmeticValue subclass:#Complex
 	instanceVariableNames:'real imaginary'
 	classVariableNames:'ComplexOne ComplexZero'
@@ -345,6 +349,8 @@
 !Complex methodsFor:'coercing'!
 
 coerce: aNumber
+    "convert the argument aNumber into an instance of the receiver's class and return it."
+
     ^ aNumber asComplex
 !
 
@@ -768,6 +774,6 @@
 !Complex class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Complex.st,v 1.16 2014-07-10 12:23:25 cg Exp $'
+    ^ '$Header$'
 ! !