<pred> ( name -- pred )

Vocabulary

logic.private

Inputs

name

an object

Outputs

pred

an object

Definition

USING: accessors kernel ;

IN: logic.private

: <pred> ( name -- pred )
    logic-pred new swap >>name V{ } clone >>defs ;