LimitedPrecisionReal.st
changeset 16731 03aa0206cdda
parent 16663 11d8aeef6f55
child 16781 4619d7da013a
--- a/LimitedPrecisionReal.st	Wed Jul 09 18:21:08 2014 +0200
+++ b/LimitedPrecisionReal.st	Wed Jul 09 18:21:09 2014 +0200
@@ -11,8 +11,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:6.2.4.0 on 30-06-2014 at 16:22:22'                   !
-
 "{ Package: 'stx:libbasic' }"
 
 Number subclass:#LimitedPrecisionReal
@@ -1034,6 +1032,7 @@
     "
 ! !
 
+
 !LimitedPrecisionReal methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -1224,6 +1223,7 @@
 !LimitedPrecisionReal methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
+    "dispatch for visitor pattern; send #visitFloat:with: to aVisitor."
 
     ^ aVisitor visitFloat:self with:aParameter
 ! !
@@ -1231,11 +1231,11 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.77 2014-06-30 14:26:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.78 2014-07-09 16:21:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.77 2014-06-30 14:26:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.78 2014-07-09 16:21:09 cg Exp $'
 ! !