Move infix:<leg> to the setting.

rakudo · Jul 5, 2009 · 0e8a86a · 0e8a86a
1 parent 252399e
commit 0e8a86a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 11 deletions.
diff --git a/build/gen_junction_pir.pl b/build/gen_junction_pir.pl
@@ -12,7 +12,7 @@
   infix:~
   infix:== infix:!= infix:<  infix:>  infix:<= infix:>=
   infix:eq infix:ne infix:lt infix:gt infix:le infix:ge
-  infix:<=> infix:leg infix:cmp infix:=:=
+  infix:<=> infix:cmp infix:=:=
 );
 
 my @unary = qw(

diff --git a/src/builtins/cmp.pir b/src/builtins/cmp.pir
@@ -150,16 +150,6 @@ src/builtins/cmp.pir - Perl6 comparison builtins
 .end
 
 
-.sub 'infix:leg' :multi(_,_)
-    .param string a
-    .param string b
-    $I0 = cmp a, b
-    ##  Don't use a tailcall here due to RT#56448
-    $P0 = 'infix:<=>'($I0, 0)
-    .return ($P0)
-.end
-
-
 .sub 'infix:===' :multi(_,_)
     .param pmc a
     .param pmc b

diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -48,4 +48,8 @@ multi sub infix:<minmax>(@a, @b) {
     (@a[0] min @b[0], @a[1] max @b[1]);
 }
 
+multi sub infix:<leg>($a, $b) {
+    ~$a cmp ~$b;
+}
+
 # vim: ft=perl6