take-define-identifier ( sequence-parser -- string )

Vocabulary

c.lexer

Inputs

sequence-parser

an object

Outputs

string

an object

Definition

USING: combinators.short-circuit kernel sequences.parser unicode
;

IN: c.lexer

: take-define-identifier ( sequence-parser -- string )
    skip-whitespace/comments
    [ current { [ blank? ] [ 40 = ] } 1|| ] take-until ;