define-match-var ( name -- )

Vocabulary

match

Inputs

name

an object

Outputs

None

Definition

USING: kernel namespaces parser words ;

IN: match

: define-match-var ( name -- )
    create-word-in dup t "match-var" set-word-prop dup
    [ get ] curry ( -- value ) define-declared ;