infix:<===> should not be defined in terms of infix:<==> or infix:<eq>.

rakudo · Aug 28, 2009 · aab4bf9 · aab4bf9
1 parent 586076e
commit aab4bf9
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/src/classes/Int.pir b/src/classes/Int.pir
@@ -107,7 +107,8 @@ Overridden for Int.
 .sub 'infix:===' :multi(Integer,Integer)
     .param int a
     .param int b
-    .tailcall 'infix:=='(a, b)
+    $I0 = iseq a, b
+    .tailcall 'prefix:?'($I0)
 .end
 
 =back

diff --git a/src/classes/Num.pir b/src/classes/Num.pir
@@ -102,7 +102,8 @@ Overridden for Num.
 .sub 'infix:===' :multi(Float,Float)
     .param num a
     .param num b
-    .tailcall 'infix:=='(a, b)
+    $I0 = iseq a, b
+    .tailcall 'prefix:?'($I0)
 .end
 
 

diff --git a/src/classes/Str.pir b/src/classes/Str.pir
@@ -264,7 +264,8 @@ Overridden for Str.
 .sub 'infix:===' :multi(String,String)
     .param string a
     .param string b
-    .tailcall 'infix:eq'(a, b)
+    $I0 = iseq a, b
+    .tailcall 'prefix:?'($I0)
 .end