From 82c74ce1ba21ab3e3631a1167c57ff19b14ab71e Mon Sep 17 00:00:00 2001
From: "chris.double" <chris.double@double.co.nz>
Date: Mon, 27 Nov 2006 03:33:49 +0000
Subject: [PATCH] match: use word property instead of leading '?' to identify
 match vars

---
 contrib/match/match.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/match/match.factor b/contrib/match/match.factor
index ab0d739dea..564a80a081 100644
--- a/contrib/match/match.factor
+++ b/contrib/match/match.factor
@@ -9,7 +9,7 @@ SYMBOL: _
 USE: prettyprint
 
 : 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-var ] each ;
@@ -19,7 +19,7 @@ USE: prettyprint
 
 : match-var? ( symbol -- bool )
   dup word? [
-    word-name first CHAR: ? = 
+    "match-var" word-prop
   ] [
     drop f
   ] if ;