define-logic-pred ( name -- )

Vocabulary

logic.private

Inputs

name

an object

Outputs

None

Definition

USING: accessors kernel namespaces parser words words.symbol ;

IN: logic.private

: define-logic-pred ( name -- )
    create-word-in
    [ reset-generic ] [ define-symbol ]
    [ [ name>> <pred> ] keep set-global ] tri ;