layouts: most-positive/negative-fixnum return fixnums now

core/layouts/layouts-tests.factor

@@ -6,3 +6,6 @@ IN: system.tests
 
 ! Smoke test
 [ t ] [ max-array-capacity cell-bits 2^ < ] unit-test
+
+[ t ] [ most-negative-fixnum fixnum? ] unit-test
+[ t ] [ most-positive-fixnum fixnum? ] unit-test

core/layouts/layouts.factor

@@ -49,10 +49,10 @@ SYMBOL: mega-cache-size
     cell-bits (first-bignum) ; inline
 
 : most-positive-fixnum ( -- n )
-    first-bignum 1 - ; inline
+    first-bignum 1 - >fixnum ; inline
 
 : most-negative-fixnum ( -- n )
-    first-bignum neg ; inline
+    first-bignum neg >fixnum ; inline
 
 : (max-array-capacity) ( b -- n )
     5 - 2^ 1 - ; inline

extra/bloom-filters/bloom-filters.factor

@@ -127,7 +127,7 @@ PRIVATE>
 
 ! Make sure it's a fixnum here to speed up double-hashing.
 : hashcodes-from-hashcode ( n -- n n )
-    dup most-positive-fixnum >fixnum bitxor ;
+    dup most-positive-fixnum bitxor ;
 
 : hashcodes-from-object ( obj -- n n )
     hashcode abs hashcodes-from-hashcode ;

extra/project-euler/044/044.factor

@@ -41,7 +41,7 @@ IN: project-euler.044
 PRIVATE>
 
 : euler044 ( -- answer )
-    most-positive-fixnum >fixnum
+    most-positive-fixnum
     2500 [1,b] [
         dup [1,b] [
             euler044-step