proxy-var-for-'__' ( -- var-symbol )

Vocabulary

logic.private

Inputs

None

Outputs

var-symbol

an object

Definition

USING: compiler.units formatting kernel namespaces words
words.symbol ;

IN: logic.private

: proxy-var-for-'__' ( -- var-symbol )
    [
        *anonymouse-var-no* counter "ANON-%d_" sprintf
        "logic.private" create-word dup dup define-symbol
        ANONYMOUSE-LOGIC-VAR swap set-global
    ] with-compilation-unit ;