]> gitweb.factorcode.org Git - factor.git/commitdiff
bootstrap: change array-capacity coercer
authorJohn Benediktsson <mrjbq7@gmail.com>
Tue, 15 Feb 2022 20:56:23 +0000 (12:56 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 15 Feb 2022 20:56:23 +0000 (12:56 -0800)
basis/bootstrap/primitives.factor

index 85092c86056e4b1156aacc019765492f0b6e370c..6ea9819f4a08818b69eda35fed66b6bfa5fd65c8 100644 (file)
@@ -177,7 +177,7 @@ define-union-class
 define-predicate-class
 
 "array-capacity" "sequences.private" lookup-word
-[ >fixnum ] bootstrap-max-array-capacity <fake-bignum> [ fixnum-bitand ] curry append
+[ integer>fixnum-strict ] bootstrap-max-array-capacity <fake-bignum> [ fixnum-bitand ] curry append
 "coercer" set-word-prop
 
 "integer-array-capacity" "sequences.private" create-word