Change !op to generate an explicit call to an infix_prefix_meta_opera…

…tor function.
rakudo · Mar 7, 2010 · df80392 · df80392
1 parent dee7104
commit df80392
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 12 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1690,15 +1690,11 @@ method infixish($/) {
     if $<infix_prefix_meta_operator> {
         my $metaop := ~$<infix_prefix_meta_operator><sym>;
         my $sym := ~$<infix><sym>;
-        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') );
+        my $metasub := "&infix_prefix_meta_operator:<$metaop>";
+        my $opsub := "&infix:<$sym>";
+        make PAST::Op.new( :name($metasub),
+                           $opsub,
+                           :pasttype('call') );
     }
 }
 

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -328,3 +328,7 @@ our multi sub infix:<Z>(Iterable $a-iterable, Iterable $b-iterable) {
         take $b;
     }
 }
+
+multi sub infix_prefix_meta_operator:<!>($a, $b, $c) {
+    !(pir::get_hll_global__CS($a)($b, $c));
+}
diff --git a/src/old/setting/Operators.pm b/src/old/setting/Operators.pm
@@ -369,7 +369,4 @@ multi sub infix:<< >= >>($a, Whatever $b) {
     }
 }
 
-multi sub infix:<!===>($a, $b) {
-    !($a === $b);
-}
 # vim: ft=perl6