14 lines
495 B
Factor
14 lines
495 B
Factor
! Copyright (C) 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien byte-vectors io kernel libc math sequences ;
|
|
IN: io.streams.byte-array.fast
|
|
|
|
! This is split off from io.streams.byte-array because it uses
|
|
! memcpy, which is a non-core word that only works after the
|
|
! optimizing compiler has been loaded.
|
|
|
|
M: byte-vector stream-write
|
|
[ dup byte-length tail-slice swap ]
|
|
[ [ [ byte-length ] bi@ + ] keep lengthen ] 2bi
|
|
dup byte-length memcpy ;
|