define-predicate-engine ( alist -- word )


Vocabulary
generic.single

Inputs
alistan object


Outputs
wordan object


Definition
USING: kernel namespaces sequences words ;

IN: generic.single

: define-predicate-engine ( alist -- word )
[ <predicate-engine-word> ] dip
[ define ]
[ drop generic-word get "engines" word-prop push ] [ drop ]
2tri ;