--- 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 $'
! !