needs-escaping? ( cell delimiter -- ? )

Vocabulary

csv.private

Inputs

cell	an object
delimiter	an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: csv.private

: needs-escaping? ( cell delimiter -- ? )
    [ = ] curry [ [ dup "\n\"\r" member? [ drop t ] ] ] dip
    [ if ] curry compose any? ; inline