regexp.classes: inline bi* = instead of shadowing "same?".

diff --git a/basis/regexp/classes/classes.factor b/basis/regexp/classes/classes.factor
index 7cce32ecfa81c6b589da36531f88393ce2b753e7..79d1b6ccda20a891bbec3a2c73f032bab3967ae5 100644 (file)
--- a/basis/regexp/classes/classes.factor
+++ b/basis/regexp/classes/classes.factor
@@ -108,17 +108,14 @@ M: terminator-class class-member?
 
 M: f class-member? 2drop f ; inline
 
-: same? ( obj1 obj2 quot1: ( obj1 -- val1 ) quot2: ( obj2 -- val2 ) -- ? )
-    bi* = ; inline
-
 M: script-class class-member?
-    [ script-of ] [ script>> ] same? ; inline
+    [ script-of ] [ script>> ] bi* = ; inline
 
 M: category-class class-member?
-    [ category ] [ category>> ] same? ; inline
+    [ category ] [ category>> ] bi* = ; inline
 
 M: category-range-class class-member? inline
-    [ category first ] [ category>> ] same? ; inline
+    [ category first ] [ category>> ] bi* = ; inline
 
 TUPLE: not-class { class read-only } ;