From 4bf985c1e9f5d8754e879c538938778516fe258a Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Sat, 24 Apr 2010 14:59:49 -0400
Subject: [PATCH] Delete a number of commented out zero-arg operators that we
 don't need because notreduce handles them.  Uncomment infix:<before> and
 infix:<after>.

---
 src/core/metaops.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/core/metaops.pm b/src/core/metaops.pm
index 3817d080977..fe48ead5e7c 100644
--- a/src/core/metaops.pm
+++ b/src/core/metaops.pm
@@ -188,26 +188,22 @@ our multi sub infix:<~^>() { '' }
 #our multi sub infix:<|>()   { any() }
 #our multi sub infix:<^>()   { one() }
 
-#our multi sub infix:<!==>()    { Bool::True }
 our multi sub infix:<==>()     { Bool::True }
 our multi sub infix:<!=>()     { Bool::True }
 our multi sub infix:«<»()      { Bool::True }
 our multi sub infix:«<=»()     { Bool::True }
 our multi sub infix:«>»()      { Bool::True }
 our multi sub infix:«>=»()     { Bool::True }
-#our multi sub infix:<before>() { Bool::True }
-#our multi sub infix:<after>()  { Bool::True }
+our multi sub infix:<before>() { Bool::True }
+our multi sub infix:<after>()  { Bool::True }
 our multi sub infix:<~~>()     { Bool::True }
-#our multi sub infix:<!~~>()    { Bool::True }
 our multi sub infix:<lt>()     { Bool::True }
 our multi sub infix:<le>()     { Bool::True }
 our multi sub infix:<gt>()     { Bool::True }
 our multi sub infix:<ge>()     { Bool::True }
 our multi sub infix:<eq>()     { Bool::True }
 our multi sub infix:<ne>()     { Bool::True }
-#our multi sub infix:<!eq>()    { Bool::True }
 #our multi sub infix:<===>()    { Bool::True }
-#our multi sub infix:<!===>()   { Bool::True }
 our multi sub infix:<eqv>()    { Bool::True }
 #
 our multi sub infix:<||>()     { Bool::False }