(read-backslash) ( n string slice -- n' string obj )

Vocabulary

modern

Inputs

n	an object
string	an object
slice	an object

Outputs

n'	an object
string	an object
obj	an object

Definition

USING: arrays kernel modern.slices sequences sequences.extras ;

IN: modern

: (read-backslash) ( n string slice -- n' string obj )
    merge-slice-til-whitespace dup "\\" tail? [
        dup [ 92 = ] count-tail [
            [ skip-blank-from slice-til-whitespace drop ]
            replicate ensure-no-false dup
            [ no-backslash-payload ] unless
        ] curry dip swap 2array
    ] when ;