Implement new-resizable for new sequences

db4
Slava Pestov 2008-01-30 01:42:51 -06:00
parent adaa615f18
commit 10015b70c1
2 changed files with 2 additions and 2 deletions

View File

@ -32,8 +32,6 @@ 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

View File

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