load-int ( -- )

Vocabulary

pickle.private

Inputs

None

Outputs

None

Definition

USING: combinators io math.parser sequences ;

IN: pickle.private

: load-int ( -- )
    readln B{ } like
    { { B{ 48 49 } [ t ] } { B{ 48 48 } [ f ] } [ dec> ] } case
    stack push ;