(stream-write-lines) ( column data stream -- column' )

Vocabulary

base64.private

Inputs

column	an object
data	an object
stream	an object

Outputs

column'

an object

Definition

USING: io kernel math sequences ;

IN: base64.private

:: (stream-write-lines) ( column data stream -- column' )
    column data over 71 > [
        [
            stream stream-write1 1 + dup 76 =
            [ drop 0 B{ 13 10 } stream stream-write ] when
        ] each
    ] [ stream stream-write 4 + ] if ; inline