bootstrap.image.primitives: resize-byte-array can also use integer-array-capacity
parent
e19df707da
commit
0cbd0552b0
|
@ -177,7 +177,7 @@ CONSTANT: all-primitives {
|
||||||
{
|
{
|
||||||
"resize-byte-array" ( n byte-array -- new-byte-array )
|
"resize-byte-array" ( n byte-array -- new-byte-array )
|
||||||
"resize_byte_array"
|
"resize_byte_array"
|
||||||
{ integer byte-array } { byte-array } f
|
{ integer-array-capacity byte-array } { byte-array } f
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -45,6 +45,11 @@ IN: compiler.tree.propagation.tests
|
||||||
integer-array-capacity <class-info> =
|
integer-array-capacity <class-info> =
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
{ t } [
|
||||||
|
[ dupd resize-byte-array drop ] final-info first
|
||||||
|
integer-array-capacity <class-info> =
|
||||||
|
] unit-test
|
||||||
|
|
||||||
! Strings
|
! Strings
|
||||||
{ V{ 3 } } [
|
{ V{ 3 } } [
|
||||||
[ 3 f <string> length ] final-literals
|
[ 3 f <string> length ] final-literals
|
||||||
|
|
Loading…
Reference in New Issue