add unmatchable-class method to class-member?

2008-08-21 18:01:50 -05:00 · 2008-08-21 18:01:50 -05:00 · 4545ef58a5
parent 7d0d2da318
commit 4545ef58a5
1 changed files with 3 additions and 0 deletions
--- 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 ;