yenc% ( bytes -- )

Vocabulary

yenc.private

Inputs

bytes

an object

Outputs

None

Definition

USING: kernel make math sequences ;

IN: yenc.private

: yenc% ( bytes -- )
    [
        42 + 256 mod dup "\0\r\n=" member?
        [ 61 , 64 + 256 mod ] when , yenc-line%
    ] each ;