fuel-maybe-scape ( ch -- seq )

Vocabulary

fuel.pprint.private

Inputs

ch

an object

Outputs

seq

an object

Definition

USING: arrays kernel sequences ;

IN: fuel.pprint.private

: fuel-maybe-scape ( ch -- seq )
    dup "\\\"?#()[]'`;." member?
    [ 92 swap 2array ] [ 1array ] if ;