Update extra/match for define-compound => define renaming

db4
Slava Pestov 2008-01-09 19:13:50 -05:00
parent 542b85889d
commit 97e1e53781
1 changed files with 1 additions and 1 deletions

View File

@ -11,7 +11,7 @@ SYMBOL: _
: define-match-var ( name -- )
create-in
dup t "match-var" set-word-prop
dup [ get ] curry define-compound ;
dup [ get ] curry define ;
: define-match-vars ( seq -- )
[ define-match-var ] each ;