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

Vocabulary

json

Inputs

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

Outputs

string

an object

Definition

USING: kernel ;

IN: json

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