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