read-bare-word ( first-char -- string )

Vocabulary

pbrt.private

Inputs

first-char

an object

Outputs

string

an object

Definition

USING: ascii kernel sequences strings ;

IN: pbrt.private

: read-bare-word ( first-char -- string )
    1string
    [ pbrt-read1 dup [ dup Letter? ] [ f ] if ]
    [ 1string append ] while [ save-char ] when* ;