io.streams.byte-array.fast: don't need >c-ptr.
parent
f865273e4d
commit
5cfd5ff224
|
@ -8,8 +8,6 @@ IN: io.streams.byte-array.fast
|
||||||
! optimizing compiler has been loaded.
|
! optimizing compiler has been loaded.
|
||||||
|
|
||||||
M: byte-vector stream-write
|
M: byte-vector stream-write
|
||||||
[ dup byte-length tail-slice ]
|
[ dup byte-length tail-slice swap ]
|
||||||
[ [ [ byte-length ] bi@ + ] keep lengthen ]
|
[ [ [ byte-length ] bi@ + ] keep lengthen ] 2bi
|
||||||
[ drop byte-length ]
|
dup byte-length memcpy ;
|
||||||
2tri
|
|
||||||
[ >c-ptr swap >c-ptr ] dip memcpy ;
|
|
||||||
|
|
Loading…
Reference in New Issue