(decode-base16) ( stream -- )

Vocabulary

base16.private

Inputs

stream

an object

Outputs

None

Definition

USING: base16 combinators io kernel sequences ;

IN: base16.private

:: (decode-base16) ( stream -- )
    2 stream stream-read dup length {
        { 0 [ drop ] }
        { 2 [ decode2 write1 stream (decode-base16) ] }
        [ malformed-base16 ]
    } case ;