(decode-base45) ( stream -- )

Vocabulary

base45.private

Inputs

stream

an object

Outputs

None

Definition

USING: base64.private kernel math sequences ;

IN: base45.private

: (decode-base45) ( stream -- )
    3 "\n\r" pick read-ignoring dup length zero?
    [ 2drop ] [ decode3 (decode-base45) ] if ;