(parse-list-literal) ( right-of-dot? -- )

Vocabulary

lists.private

Inputs

right-of-dot?

an object

Outputs

None

Definition

USING: combinators kernel lexer lists make parser sequences
words ;

IN: lists.private

: (parse-list-literal) ( right-of-dot? -- )
    scan-token {
        { "}" [ drop L{ } , ] }
        { "." [ ?list-syntax-error t (parse-list-literal) ] }
        [
            parse-datum dup parsing-word?
            [ V{ } clone swap execute-parsing first ] when ,
            [ "}" expect ] [ f (parse-list-literal) ] if
        ]
    } case ;