steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/specialized-vectors/alien/alien.factor
View File

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

2
basis/specialized-vectors/bool/bool.factor
View File

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

2
basis/specialized-vectors/char/char.factor
View File

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

2
basis/specialized-vectors/double/double.factor
View File

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

2
basis/specialized-vectors/float/float.factor
View File

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

2
basis/specialized-vectors/functor/functor.factor
View File

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

2
basis/specialized-vectors/int/int.factor
View File

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

2
basis/specialized-vectors/long/long.factor
View File

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

2
basis/specialized-vectors/longlong/longlong.factor
View File

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

2
basis/specialized-vectors/short/short.factor
View File

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

5
basis/specialized-vectors/specialized-vectors-tests.factor Normal file
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

2
basis/specialized-vectors/uchar/uchar.factor
View File

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

2
basis/specialized-vectors/uint/uint.factor
View File

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

2
basis/specialized-vectors/ulong/ulong.factor
View File

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

2
basis/specialized-vectors/ulonglong/ulonglong.factor
View File

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

2
basis/specialized-vectors/ushort/ushort.factor
View File

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