oct-escape ( str -- ch/f str' )

Vocabulary

pickle.private

Inputs

str

an object

Outputs

ch/f	an object
str'	an object

Definition

USING: kernel math math.order math.parser sequences ;

IN: pickle.private

: oct-escape ( str -- ch/f str' )
    dup 3 index-or-length head-slice
    [ [ 48 55 between? not ] find drop ] keep [ length ] curry
    unless* [ f ] when-zero
    [ cut-slice [ oct> ] dip ] [ f swap ] if* ;