stream-read-edn-string ( stream -- string )

Vocabulary

edn.private

Inputs

stream

an object

Outputs

string

an object

Definition

USING: combinators edn io kernel make strings.parser ;

IN: edn.private

: stream-read-edn-string ( stream -- string )
    [
        [
            "\\\"" over stream-read-until [ % ] dip {
                { 92 [ dup stream-read1 escape , t ] }
                { 34 [ f ] }
                { f [ edn-error ] }
            } case
        ] loop
    ] "" make nip ;