Update extra/match for define-compound => define renaming
parent
542b85889d
commit
97e1e53781
|
@ -11,7 +11,7 @@ SYMBOL: _
|
||||||
: define-match-var ( name -- )
|
: define-match-var ( name -- )
|
||||||
create-in
|
create-in
|
||||||
dup t "match-var" set-word-prop
|
dup t "match-var" set-word-prop
|
||||||
dup [ get ] curry define-compound ;
|
dup [ get ] curry define ;
|
||||||
|
|
||||||
: define-match-vars ( seq -- )
|
: define-match-vars ( seq -- )
|
||||||
[ define-match-var ] each ;
|
[ define-match-var ] each ;
|
||||||
|
|
Loading…
Reference in New Issue