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

Vocabulary

json

Inputs

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

Outputs

None

Definition

USING: kernel ;

IN: json

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