diff --git a/basis/bootstrap/image/primitives/primitives.factor b/basis/bootstrap/image/primitives/primitives.factor index 0de0ed0e74..f9e2d8a9ec 100644 --- a/basis/bootstrap/image/primitives/primitives.factor +++ b/basis/bootstrap/image/primitives/primitives.factor @@ -177,7 +177,7 @@ CONSTANT: all-primitives { { "resize-byte-array" ( n byte-array -- new-byte-array ) "resize_byte_array" - { integer byte-array } { byte-array } f + { integer-array-capacity byte-array } { byte-array } f } } } diff --git a/basis/compiler/tree/propagation/propagation-tests.factor b/basis/compiler/tree/propagation/propagation-tests.factor index a30fe7582a..ed20f1c698 100644 --- a/basis/compiler/tree/propagation/propagation-tests.factor +++ b/basis/compiler/tree/propagation/propagation-tests.factor @@ -45,6 +45,11 @@ IN: compiler.tree.propagation.tests integer-array-capacity = ] unit-test +{ t } [ + [ dupd resize-byte-array drop ] final-info first + integer-array-capacity = +] unit-test + ! Strings { V{ 3 } } [ [ 3 f length ] final-literals