rewrite-json-path ( path quot: ( json -- json' ) -- )

Vocabulary

json

Inputs

path	an object
quot	a quotation with stack effect ( json -- json' )

Outputs

None

Definition

USING: kernel ;

IN: json

: rewrite-json-path ( path quot: ( json -- json' ) -- )
    [ [ path>json ] dip call ] keepd json>path ; inline