equal
deleted
inserted
replaced
79 |
79 |
80 Claus: fixed some minor bugs (args to errorUndefinedResult:) and some wrong comments. |
80 Claus: fixed some minor bugs (args to errorUndefinedResult:) and some wrong comments. |
81 Changed retry:coercing: to match ST/X's way of doing this |
81 Changed retry:coercing: to match ST/X's way of doing this |
82 |
82 |
83 Instance Variables :- |
83 Instance Variables :- |
84 positive <Boolean> : if true the instance represents positive |
|
85 infinity. if false, negative infinity |
|
86 " |
84 " |
87 ! |
85 ! |
88 |
86 |
89 examples |
87 examples |
90 " |
88 " |
392 ^ InfPos |
390 ^ InfPos |
393 ! |
391 ! |
394 |
392 |
395 negative |
393 negative |
396 ^ true |
394 ^ true |
|
395 ! |
|
396 |
|
397 positive |
|
398 ^ false |
|
399 |
|
400 "Created: / 21-06-2017 / 14:02:18 / cg" |
397 ! ! |
401 ! ! |
398 |
402 |
399 !Infinity::NegativeInfinity methodsFor:'comparing'! |
403 !Infinity::NegativeInfinity methodsFor:'comparing'! |
400 |
404 |
401 hash |
405 hash |
424 ^ InfNeg |
428 ^ InfNeg |
425 ! |
429 ! |
426 |
430 |
427 negative |
431 negative |
428 ^ false |
432 ^ false |
|
433 ! |
|
434 |
|
435 positive |
|
436 ^ true |
|
437 |
|
438 "Created: / 21-06-2017 / 14:02:28 / cg" |
429 ! ! |
439 ! ! |
430 |
440 |
431 !Infinity::PositiveInfinity methodsFor:'comparing'! |
441 !Infinity::PositiveInfinity methodsFor:'comparing'! |
432 |
442 |
433 hash |
443 hash |