parse-pair ( data -- extra value key )

Vocabulary

tnetstrings.private

Inputs

data

an object

Outputs

extra	an object
value	an object
key	an object

Definition

USING: kernel sequences ;

IN: tnetstrings.private

: parse-pair ( data -- extra value key )
    parse-tnetstring [
        [ "Unbalanced dictionary store" throw ] when-empty
        parse-tnetstring
        [ "Invalid value, null not allowed" throw ] unless*
    ] dip ;