From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 18 Mar 2021 19:20:35 +0000 (-0700)
Subject: regexp.classes: inline bi* = instead of shadowing "same?".
X-Git-Tag: 0.99~2437
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=8f5ba80455e527790dba6a740d12892b0d530cf3

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

diff --git a/basis/regexp/classes/classes.factor b/basis/regexp/classes/classes.factor
index 7cce32ecfa..79d1b6ccda 100644
--- 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 } ;