if-skip ( char true false -- ) (original) (raw)

if-skip ( char true false -- )

Vocabulary
math.parser.private

Inputs

char	an object
true	an object
false	an object

Outputs
None

Definition

USING: kernel sequences ;

IN: math.parser.private

: if-skip ( char true false -- )
pick ",_" member-eq? [ drop nip call ] [ nip call ] if ;
inline