From 4545ef58a5fae43c9e7099196736baba18fd8568 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 21 Aug 2008 18:01:50 -0500
Subject: [PATCH] add unmatchable-class method to class-member?

---
 extra/regexp2/classes/classes.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/regexp2/classes/classes.factor b/extra/regexp2/classes/classes.factor
index f7907da7d5..7737e02d40 100644
--- a/extra/regexp2/classes/classes.factor
+++ b/extra/regexp2/classes/classes.factor
@@ -50,3 +50,6 @@ M: hex-digit-class class-member? ( obj class -- ? )
 
 M: java-blank-class class-member? ( obj class -- ? )
     drop java-blank? ;
+
+M: unmatchable-class class-member? ( obj class -- ? )
+    2drop f ;