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

Vocabulary

json

Inputs

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

Outputs

string

an object

Definition

USING: kernel ;

IN: json

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