read-packed-bytes ( str -- bytes )


Vocabulary
pack.private

Inputs
stran object


Outputs
bytesan object


Definition
USING: io kernel pack sequences ;

IN: pack.private

: read-packed-bytes ( str -- bytes )
dup packed-length [ read dup length ] keep =
[ nip ] [ packed-read-fail ] if ; inline