Loosen type on direct arrays since we want to use them on displaced aliens too
parent
da9b38caae
commit
8834f8e041
|
@ -20,7 +20,7 @@ SET-NTH [ T dup c-setter array-accessor ]
|
||||||
WHERE
|
WHERE
|
||||||
|
|
||||||
TUPLE: A
|
TUPLE: A
|
||||||
{ underlying simple-alien read-only }
|
{ underlying alien read-only }
|
||||||
{ length fixnum read-only } ;
|
{ length fixnum read-only } ;
|
||||||
|
|
||||||
: <A> ( alien len -- direct-array ) A boa ; inline
|
: <A> ( alien len -- direct-array ) A boa ; inline
|
||||||
|
|
Loading…
Reference in New Issue