2009/12/18 Marcus Denker <
[hidden email]>:
> 11108
> -----
>
> Issue 1610: (Float class >> #nan) = (Float class >> #nan)
> Thanks, Niko Schwarz
Here is how I would attack the new implementation :
MyClass class>>nan
^NaN
(Float class>> #nan) = (MyClass class >> #nan) -> MNU nil
doesNotUnderstand: isNan
MyClass>>a0
^0.5
MyClass>>a1
^0.5s1
MyClass>>a2
^0.5s2
(MyClass>>#a1)=(MyClass>>#a2)
(MyClass>>#a0)=(MyClass>>#a2)
MyClass class>>componentMask
^ComponentMask ifNil: [ ComponentMask := 1023 ]
MyClass class>>componentMax
^ComponentMax ifNil: [ ComponentMax := 1023.0 ].
(MyClass class>>#componentMax) = (MyClass class>>#componentMask). -> false
MyClass componentMax; componentMask.
(MyClass class>>#componentMax) = (MyClass class>>#componentMask). -> true
(MyClass class>>#componentMask) = (MyClass class>>#componentMax). -> false
Of course, these are unlikely, but...
Nicolas
(Float class nan) = (MyClass class nan) -> MNU nil doesNotUnderstand: isNan
_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project