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
|
||||
|
||||
TUPLE: A
|
||||
{ underlying simple-alien read-only }
|
||||
{ underlying alien read-only }
|
||||
{ length fixnum read-only } ;
|
||||
|
||||
: <A> ( alien len -- direct-array ) A boa ; inline
|
||||
|
|
Loading…
Reference in New Issue