--- a/SomeNumber.st Fri Dec 30 13:07:37 2016 +0100
+++ b/SomeNumber.st Sat Dec 31 01:02:31 2016 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
+
MetaNumber subclass:#SomeNumber
instanceVariableNames:'realNumber'
classVariableNames:''
@@ -86,6 +88,15 @@
as the receiver, false otherwise."
^ something equalFromSomeNumber:self
+
+ "
+ Float infinity = Infinity positive
+ Infinity positive = Float infinity
+ Float negativeInfinity = Infinity negative
+ Infinity negative = Float negativeInfinity
+ Float negativeInfinity = Infinity positive
+ Infinity positive = Float negativeInfinity
+ "
! !
!SomeNumber methodsFor:'printing'!
@@ -106,6 +117,10 @@
!SomeNumber methodsFor:'queries'!
+isInfinite
+ ^ realNumber isInfinite
+!
+
sign
"return the sign of the receiver (-1, 0 or 1)"
@@ -115,6 +130,6 @@
!SomeNumber class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SomeNumber.st,v 1.4 2014-06-30 14:27:34 stefan Exp $'
+ ^ '$Header$'
! !