]> gitweb.factorcode.org Git - factor.git/blobdiff - core/layouts/layouts.factor
layouts: change max-array-capacity to most-positive-fixnum
[factor.git] / core / layouts / layouts.factor
index c0c9a277ddb2c79c5bd95441ce3d337af14bab37..ec9a0a90bd86e9279a082232328fd7b4e7cc34fc 100644 (file)
@@ -73,11 +73,7 @@ SYMBOL: header-bits
 : most-negative-fixnum ( -- n )
     first-bignum neg >fixnum ; inline
 
-: (max-array-capacity) ( b -- n )
-    2 - 2^ 1 - ; inline
-
-: max-array-capacity ( -- n )
-    fixnum-bits (max-array-capacity) ; inline
+ALIAS: max-array-capacity most-positive-fixnum
 
 : bootstrap-first-bignum ( -- n )
     bootstrap-cell-bits (first-bignum) ;
@@ -88,8 +84,7 @@ SYMBOL: header-bits
 : bootstrap-most-negative-fixnum ( -- n )
     bootstrap-first-bignum neg ;
 
-: bootstrap-max-array-capacity ( -- n )
-    bootstrap-fixnum-bits (max-array-capacity) ;
+ALIAS: bootstrap-max-array-capacity bootstrap-most-positive-fixnum
 
 M: bignum >integer
     dup most-negative-fixnum most-positive-fixnum between?