parse-bool ( data -- ? )

Vocabulary

tnetstrings.private

Inputs

data

an object

Outputs

?

an object

Definition

USING: combinators formatting kernel ;

IN: tnetstrings.private

: parse-bool ( data -- ? )
    {
        { "true" [ t ] }
        { "false" [ f ] }
        [ "Invalid bool: %s" sprintf throw ]
    } case ;