Fix specialized vectors, again

db4
Slava Pestov 2008-12-03 03:43:52 -06:00
parent 46b0df1e18
commit 6200e99f58
16 changed files with 20 additions and 15 deletions

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.alien ;
IN: specialized-vector.alien
IN: specialized-vectors.alien
<< "void*" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.bool ;
IN: specialized-vector.bool
IN: specialized-vectors.bool
<< "bool" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.char ;
IN: specialized-vector.char
IN: specialized-vectors.char
<< "char" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.double ;
IN: specialized-vector.double
IN: specialized-vectors.double
<< "double" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.float ;
IN: specialized-vector.float
IN: specialized-vectors.float
<< "float" define-vector >>

View File

@ -39,7 +39,7 @@ M: V >pprint-sequence ;
M: V pprint* pprint-object ;
: V{ [ >V execute ] parse-literal ; parsing
: V{ \ } [ >V execute ] parse-literal ; parsing
INSTANCE: V growable

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.int ;
IN: specialized-vector.int
IN: specialized-vectors.int
<< "int" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.long ;
IN: specialized-vector.long
IN: specialized-vectors.long
<< "long" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.longlong ;
IN: specialized-vector.longlong
IN: specialized-vectors.longlong
<< "longlong" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.short ;
IN: specialized-vector.short
IN: specialized-vectors.short
<< "short" define-vector >>

View File

@ -0,0 +1,5 @@
IN: specialized-vectors.tests
USING: specialized-vectors.double tools.test kernel sequences ;
[ 3 ] [ double-vector{ 1 2 } 3 over push length ] unit-test

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.uchar ;
IN: specialized-vector.uchar
IN: specialized-vectors.uchar
<< "uchar" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.uint ;
IN: specialized-vector.uint
IN: specialized-vectors.uint
<< "uint" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.ulong ;
IN: specialized-vector.ulong
IN: specialized-vectors.ulong
<< "ulong" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.ulonglong ;
IN: specialized-vector.ulonglong
IN: specialized-vectors.ulonglong
<< "ulonglong" define-vector >>

View File

@ -1,4 +1,4 @@
USING: specialized-vectors.functor specialized-arrays.ushort ;
IN: specialized-vector.ushort
IN: specialized-vectors.ushort
<< "ushort" define-vector >>