read-csexp-with-eol ( -- obj )

Vocabulary

csexp

Inputs

None

Outputs

obj

an object

Definition

USING: ascii combinators io kernel ;

IN: csexp

: read-csexp-with-eol ( -- obj )
    read1 {
        { [ dup 40 = ] [ drop V{ } clone read-list ] }
        { [ dup 41 = ] [ drop end-of-list ] }
        { [ dup digit? ] [ digit>num read-string ] }
        [ drop csexp-error ]
    } cond ;