read-bracketed-values ( -- values )

Vocabulary

pbrt.private

Inputs

None

Outputs

values

an object

Definition

USING: kernel pbrt sequences ;

IN: pbrt.private

: read-bracketed-values ( -- values )
    [
        read-token
        [ dup close-bracket? not ] [
            "Unexpected EOF in bracketed values"
            pbrt-parse-error
        ] if*
    ] [ ] produce nip ;