Fix feps on 64 bit

db4
Slava Pestov 2008-07-05 21:00:05 -05:00
parent 1c92b20a9a
commit 9256e31d66
2 changed files with 7 additions and 1 deletions

View File

@ -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 '

View File

@ -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.