From f2896c3f43148b407d77bb84303ca7cad1de8c97 Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Sat, 29 May 2010 16:26:12 +0200
Subject: [PATCH] Rename notresults to negate, to be in line with S03.

---
 src/Perl6/Actions.pm | 2 +-
 src/core/metaops.pm  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index 8cda08226d4..1d1120728db 100644
--- a/src/Perl6/Actions.pm
+++ b/src/Perl6/Actions.pm
@@ -2115,7 +2115,7 @@ method infixish($/) {
         unless %*METAOPGEN{$opsub} {
             my $helper := "";
             if $metaop eq '!' {
-                $helper := '&notresults';
+                $helper := '&negate';
             } elsif $metaop eq 'R' {
                 $helper := '&reverseargs';
             } elsif $metaop eq 'S' {
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
index 7dbd1ef93ac..d687ca7508f 100644
--- a/src/core/metaops.pm
+++ b/src/core/metaops.pm
@@ -1,8 +1,8 @@
-our multi sub notresults(&op, Mu \$a, Mu \$b) {
+our multi sub negate(&op, Mu \$a, Mu \$b) {
     !(&op($a, $b));
 }
 
-our multi sub notresults(&op) {
+our multi sub negate(&op) {
     Bool::True;
 }