re-escape ( str -- str' )

Vocabulary

verbal-expressions.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: ascii combinators.short-circuit kernel make sequences ;

IN: verbal-expressions.private

: re-escape ( str -- str' )
    [
        [ dup { [ Letter? ] [ digit? ] } 1|| [ 92 , ] unless , ]
        each
    ] "" make ;