match: whoops.

2012-07-19 17:09:23 -07:00 · 2012-07-19 17:09:23 -07:00 · 23d6c4fe4a
parent eb6c03c536
commit 23d6c4fe4a
1 changed files with 1 additions and 1 deletions
--- a/basis/match/match.factor
+++ b/basis/match/match.factor
@ -23,7 +23,7 @@ SYNTAX: MATCH-VARS: ! vars ...
    dup word? [ "match-var" word-prop ] [ drop f ] if ;

 : set-match-var ( value var -- ? )
-    dup namespace get key? [ get = ] [ set t ] if ;
+    dup namespace key? [ get = ] [ set t ] if ;

 : (match) ( value1 value2 -- matched? )
    {