write-json-generic-escape ( stream char -- stream )

Vocabulary

json.private

Inputs

stream	an object
char	an object

Outputs

stream

an object

Definition

USING: kernel math ;

IN: json.private

: write-json-generic-escape ( stream char -- stream )
    dup 65535 >
    [ write-json-generic-escape-surrogate-pair ]
    [ write-json-generic-escape-bmp ] if ;