Implement new-resizable for new sequences
parent
adaa615f18
commit
10015b70c1
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue