parse-pair ( data -- extra value key )


Vocabulary
tnetstrings.private

Inputs and outputs
dataan object
extraan object
valuean object
keyan object


Definition


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