escape-quotes ( cell stream -- )

Vocabulary

csv.private

Inputs

cell	an object
stream	an object

Outputs

None

Definition

USING: io kernel sequences ;

IN: csv.private

: escape-quotes ( cell stream -- )
    34 over stream-write1 swap [
        [ over stream-write1 ]
        [ dup 34 = [ over stream-write1 ] [ drop ] if ] bi
    ] each 34 swap stream-write1 ;