txon> ( string -- object )

Vocabulary

txon

Inputs

string

an object

Outputs

object

an object

Definition

USING: arrays kernel linked-assocs sequences txon.private ;

IN: txon

: txon> ( string -- object )
    parse-txon dup [ pair? ] all?
    [ >linked-hash ] [ dup length 1 = [ first ] when ] if ;