escape ( before after -- before' after' )

Vocabulary

farkup

Inputs

before	an object
after	an object

Outputs

before'	an object
after'	an object

Definition

USING: kernel lists sequences ;

IN: farkup

: escape ( before after -- before' after' )
    [ nil ]
    [ unclip-slice swap [ suffix ] dip (parse-paragraph) ]
    if-empty ;