stream-read-edn-ident ( stream -- object )

Vocabulary

edn.private

Inputs

stream

an object

Outputs

object

an object

Definition

USING: combinators edn kernel sequences ;

IN: edn.private

: stream-read-edn-ident ( stream -- object )
    dup stream-read-edn1 {
        { f [ edn-error ] }
        { 95 [ dup stream-read-edn drop stream-read-edn ] }
        { 123 [ stream-read-edn-set ] }
        [
            [ [ stream-read-token ] [ stream-read-edn ] bi ] dip
            swap [ prefix ] dip tagged boa
        ]
    } case ;