Fix feps on 64 bit
parent
1c92b20a9a
commit
9256e31d66
|
@ -228,6 +228,12 @@ M: fixnum '
|
|||
bootstrap-most-positive-fixnum between?
|
||||
[ tag-fixnum ] [ >bignum ' ] if ;
|
||||
|
||||
TUPLE: fake-bignum n ;
|
||||
|
||||
C: <fake-bignum> fake-bignum
|
||||
|
||||
M: fake-bignum ' n>> tag-fixnum ;
|
||||
|
||||
! Floats
|
||||
|
||||
M: float '
|
||||
|
|
|
@ -181,7 +181,7 @@ define-union-class
|
|||
! A predicate class used for declarations
|
||||
"array-capacity" "sequences.private" create
|
||||
"fixnum" "math" lookup
|
||||
0 bootstrap-max-array-capacity [ between? ] 2curry
|
||||
0 bootstrap-max-array-capacity <fake-bignum> [ between? ] 2curry
|
||||
define-predicate-class
|
||||
|
||||
! Catch-all class for providing a default method.
|
||||
|
|
Loading…
Reference in New Issue