Loosen type on direct arrays since we want to use them on displaced aliens too

db4
U-SLAVA-DFB8FF805\Slava 2008-12-03 06:52:31 -06:00
parent da9b38caae
commit 8834f8e041
1 changed files with 1 additions and 1 deletions

2
basis/specialized-arrays/direct/functor/functor.factor Normal file → Executable file
View File

@ -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