XopX is now spelled Xop

rakudo · Feb 4, 2009 · c108072 · c108072
1 parent 1ab9b07
commit c108072
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/build/gen_metaop_pir.pl b/build/gen_metaop_pir.pl
@@ -61,7 +61,7 @@
     "    optable.'newtok'(%s, 'equiv'=>'infix:%s')\n" .
     "    optable.'newtok'('infix:%s', 'equiv'=>'infix:%s', 'subname'=>%s)\n";
 my $crossfmt =
-    "    optable.'newtok'('infix:X%sX', 'equiv'=>'infix:X')\n";
+    "    optable.'newtok'('infix:X%s', 'equiv'=>'infix:X')\n";
 
 my @gtokens = ();
 my @code = ();
@@ -95,7 +95,7 @@
     push @gtokens, sprintf( $crossfmt, $opname );
     my $is_chaining = $op_type eq 'comp' ? 1 : 0;
     push @code, qq(
-        .sub 'infix:X${opname}X'
+        .sub 'infix:X${opname}'
             .param pmc a
             .param pmc b
             .tailcall '!CROSSMETAOP'('$opname', $identity, $is_chaining, a, b)