Generalize specialized-arrays.direct: it should be able to wrap a byte array

2008-12-04 12:07:33 -06:00 · 2008-12-04 12:07:33 -06:00 · 293dc2062c
parent 9172a3ae27
commit 293dc2062c
1 changed files with 1 additions and 1 deletions
--- a/basis/specialized-arrays/direct/functor/functor.factor
+++ b/basis/specialized-arrays/direct/functor/functor.factor
@ -20,7 +20,7 @@ SET-NTH [ T dup c-setter array-accessor ]
 WHERE

 TUPLE: A
-{ underlying alien read-only }
+{ underlying c-ptr read-only }
 { length fixnum read-only } ;

 : <A> ( alien len -- direct-array ) A boa ; inline