parse-dict ( data -- value )

Vocabulary

tnetstrings.private

Inputs

data

an object

Outputs

value

an object

Definition

USING: arrays hashtables kernel sequences ;

IN: tnetstrings.private

: parse-dict ( data -- value )
    [ H{ } ] [
        [ dup empty? not ] [ parse-pair swap 2array ] produce
        nip >hashtable
    ] if-empty ;