equal
deleted
inserted
replaced
15 |
15 |
16 This is an additional goody-class, which is NOT covered by the |
16 This is an additional goody-class, which is NOT covered by the |
17 ST/X license. It has been packaged with the ST/X distribution to |
17 ST/X license. It has been packaged with the ST/X distribution to |
18 make your live easier instead. NO WARRANTY. |
18 make your live easier instead. NO WARRANTY. |
19 " |
19 " |
20 |
|
21 "{ Package: 'stx:libbasic' }" |
20 "{ Package: 'stx:libbasic' }" |
22 |
21 |
23 MetaNumber subclass:#Infinity |
22 MetaNumber subclass:#Infinity |
24 instanceVariableNames:'' |
23 instanceVariableNames:'' |
25 classVariableNames:'InfNeg InfPos' |
24 classVariableNames:'InfNeg InfPos' |
262 = aNumber |
261 = aNumber |
263 "return true, if the argument represents the same numeric value |
262 "return true, if the argument represents the same numeric value |
264 as the receiver, false otherwise." |
263 as the receiver, false otherwise." |
265 |
264 |
266 aNumber == self ifTrue:[^ true]. |
265 aNumber == self ifTrue:[^ true]. |
|
266 aNumber isNumber ifFalse:[^ false]. |
267 "could be another infinity..." |
267 "could be another infinity..." |
268 aNumber isFinite ifTrue:[^ false]. |
268 aNumber isFinite ifTrue:[^ false]. |
269 ^ aNumber sign == self sign |
269 ^ aNumber sign == self sign |
270 ! |
270 ! |
271 |
271 |
423 ! ! |
423 ! ! |
424 |
424 |
425 !Infinity class methodsFor:'documentation'! |
425 !Infinity class methodsFor:'documentation'! |
426 |
426 |
427 version |
427 version |
428 ^ '$Id: Infinity.st 10447 2009-06-14 13:09:55Z vranyj1 $' |
428 ^ '$Id: Infinity.st 10473 2009-10-24 15:48:19Z vranyj1 $' |
|
429 ! |
|
430 |
|
431 version_CVS |
|
432 ^ '§Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.13 2009/10/12 19:34:30 cg Exp §' |
429 ! ! |
433 ! ! |
430 |
434 |
431 Infinity initialize! |
435 Infinity initialize! |
|
436 |