failed-lexing ( assoc -- assoc' )


Vocabulary
modern

Inputs
assocan object


Outputs
assoc'an object


Definition
USING: arrays assocs ;

IN: modern

: failed-lexing ( assoc -- assoc' ) [ array? ] reject-values ;