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

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