load-string ( -- )

Vocabulary

pickle.private

Inputs

None

Outputs

None

Definition

USING: combinators io kernel pickle sequences splitting ;

IN: pickle.private

: load-string ( -- )
    readln {
        {
            [ "'" ?head ]
            [ "'" ?tail [ t ] [ invalid-string ] if ]
        }
        {
            [ "\"" ?head ]
            [ "\"" ?tail [ t ] [ invalid-string ] if ]
        }
        [ f ]
    } cond [ unescape-string stack push ] [ invalid-string ] if
    ;