(encode-base45) ( stream -- )

Vocabulary

base45.private

Inputs

stream

an object

Outputs

None

Definition

USING: io kernel math sequences ;

IN: base45.private

: (encode-base45) ( stream -- )
    2 over stream-read dup length zero?
    [ 2drop ] [ encode2 write (encode-base45) ] if ;