implement infix:<!%>

rakudo · Aug 9, 2009 · 5517d80 · 5517d80
1 parent 75d2b7d
commit 5517d80
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/src/parser/grammar-oper.pg b/src/parser/grammar-oper.pg
@@ -29,6 +29,7 @@ proto prefix:<|> is equiv(prefix:<+>) { ... }
 proto infix:<*> is precedence('u=') { ... }
 proto infix:</> is equiv(infix:<*>) { ... }
 proto infix:<%> is equiv(infix:<*>) { ... }
+proto infix:<!%> is equiv(infix:<*>) { ... }
 proto infix:<+&> is equiv(infix:<*>) { ... }
 proto infix:<+^> is equiv(infix:<*>) { ... }
 proto infix:«+<» is equiv(infix:<*>) { ... }

diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -84,4 +84,6 @@ sub prefix:<[||]>(*@a) {
     return ();
 }
 
+sub infix:<!%>($a, $b) { ! ($a % $b) }
+
 # vim: ft=perl6