More fixes

db4
Slava Pestov 2008-01-30 01:40:22 -06:00
parent 14324ae396
commit adaa615f18
4 changed files with 7 additions and 1 deletions

View File

@ -28,4 +28,6 @@ M: bit-vector new
M: bit-vector equal?
over bit-vector? [ sequence= ] [ 2drop f ] if ;
M: bit-array new-resizable drop <bit-vector> ;
INSTANCE: bit-vector growable

View File

@ -24,7 +24,7 @@ HELP: <byte-vector>
{ $description "Creates a new byte vector that can hold " { $snippet "n" } " bytes before resizing." } ;
HELP: >byte-vector
{ $values { "seq" "a sequence" } { "byte-vector" vector } }
{ $values { "seq" "a sequence" } { "byte-vector" byte-vector } }
{ $description "Outputs a freshly-allocated byte vector with the same elements as a given sequence." }
{ $errors "Throws an error if the sequence contains elements other than integers." } ;

View File

@ -28,4 +28,6 @@ M: byte-vector new
M: byte-vector equal?
over byte-vector? [ sequence= ] [ 2drop f ] if ;
M: byte-array new-resizable drop <byte-vector> ;
INSTANCE: byte-vector growable

View File

@ -32,6 +32,8 @@ M: float-array equal?
M: float-array resize
resize-float-array ;
M: float-array new-resizable drop <float-vector> ;
INSTANCE: float-array sequence
INSTANCE: float-array simple-c-ptr
INSTANCE: float-array c-ptr