json-expect ( token stream -- )

Vocabulary

json.private

Inputs

token	an object
stream	an object

Outputs

None

Definition

USING: io json kernel sequences ;

IN: json.private

: json-expect ( token stream -- )
    [ dup length ] [ stream-read ] bi* = [ json-error ] unless ;
    inline