Add degenerate cases for infix:<gcd> and infix:<lcm>.

anindya5678 · May 11, 2011 · a423aef · a423aef
1 parent b5084f6
commit a423aef
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -280,6 +280,8 @@ our multi sub reducewith(&op, *@args,
 # this fails for operators defined in PIR, so some of them are commented out.
 our multi sub infix:<**>($x = 1) { +$x }
 our multi sub infix:<*>($x = 1)  { +$x }
+our multi sub infix:<gcd>(Int $x = 1) { $x }
+our multi sub infix:<lcm>(Int $x = 1) { $x }
 our multi sub infix:<?&>($x = Bool::True) { ?$x }
 our multi sub infix:<+&>() { +^0 }
 our multi sub infix:<+>($x = 0)  { +$x }