Revert "Change !op to generate an explicit call to an infix_prefix_me…

…ta_operator function." This goes back to the first implementation of !op, which now works and is probably a bit more efficient than the second implementation.

This reverts commit df80392.

Conflicts:

	src/core/operators.pm

src/Perl6/Actions.pm

@@ -1916,11 +1916,15 @@ method infixish($/) {
     if $<infix_prefix_meta_operator> {
         my $metaop := ~$<infix_prefix_meta_operator><sym>;
         my $sym := ~$<infix><sym>;
-        my $metasub := "&infix_prefix_meta_operator:<$metaop>";
-        my $opsub := "&infix:<$sym>";
-        make PAST::Op.new( :name($metasub),
-                           $opsub,
-                           :pasttype('call') );
+        my $opsub := "&infix:<$metaop$sym>";
+        unless %*METAOPGEN{$opsub} {
+            @BLOCK[0].loadinit.push(
+                PAST::Op.new( :name('!gen_not_metaop'), $sym,
+                              :pasttype('call') )
+            );
+            %*METAOPGEN{$opsub} := 1;
+        }
+        make PAST::Op.new( :name($opsub), :pasttype('call') );
     }
 }
 

src/core/operators.pm

@@ -412,9 +412,12 @@ our multi sub infix:<Z>(Iterable $a-iterable, Iterable $b-iterable) {
     }
 }
 
-multi sub infix_prefix_meta_operator:<!>($a, $b, $c) {
-    !(pir::get_hll_global__CS($a)($b, $c));
-}
+# Eliminate use of this one, but keep the pir around for
+# the moment, as it may come in handy elsewhere.
+#
+# multi sub infix_prefix_meta_operator:<!>($a, $b, $c) {
+#     !(pir::get_hll_global__CS($a)($b, $c));
+# }
 
 # CHEAT: These should be automatically generated by the grammar,
 # I think.  But this is a quick fix to get some basic functionality

src/old/setting/Operators.pm

@@ -369,4 +369,7 @@ multi sub infix:<< >= >>($a, Whatever $b) {
     }
 }
 
+multi sub infix:<!===>($a, $b) {
+    !($a === $b);
+}
 # vim: ft=perl6