steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

match: use word property instead of leading '?' to identify match vars

chris.double 2006-11-27 03:33:49 +00:00
parent 1369f6f5b2
commit 82c74ce1ba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/match/match.factor
View File

@ -9,7 +9,7 @@ SYMBOL: _
USE: prettyprint USE: prettyprint
: define-match-var ( name -- ) : define-match-var ( name -- )
create-in [ dup <wrapper> , \ get , ] [ ] make define-compound ; create-in dup t "match-var" set-word-prop [ dup <wrapper> , \ get , ] [ ] make define-compound ;
: define-match-vars ( seq -- ) : define-match-vars ( seq -- )
[ define-match-var ] each ; [ define-match-var ] each ;
@ -19,7 +19,7 @@ USE: prettyprint
: match-var? ( symbol -- bool ) : match-var? ( symbol -- bool )
dup word? [ dup word? [
word-name first CHAR: ? = "match-var" word-prop
] [ ] [
drop f drop f
] if ; ] if ;