define-logic-var ( name -- )

Vocabulary

logic.private

Inputs

name

an object

Outputs

None

Definition

USING: kernel namespaces parser words words.symbol ;

IN: logic.private

: define-logic-var ( name -- )
    create-word-in
    [ reset-generic ] [ define-symbol ]
    [ NORMAL-LOGIC-VAR swap set-global ] tri ;