(encode-base16) ( stream -- )

Vocabulary

base16.private

Inputs

stream

an object

Outputs

None

Definition

USING: io kernel math ;

IN: base16.private

:: (encode-base16) ( stream -- )
    stream stream-read1
    [ 16 /mod [ ch>base16 write1 ] bi@ stream (encode-base16) ]
    when* ;