check-json-depth ( quot -- )

Vocabulary

json.private

Inputs

quot

an object

Outputs

None

Definition

USING: json kernel math namespaces ;

IN: json.private

: check-json-depth ( quot -- )
    [ 0 json-depth ] dip
    [ json-depth get zero? [ json-error ] unless ] compose
    with-variable ; inline