Move infix:<~> to the core setting; also remove the :pirop mention fr…

…om the grammar (we never actually used the PIR version of the op).
rakudo · Feb 6, 2010 · 273ce82 · 273ce82
1 parent 7ff29e3
commit 273ce82
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 10 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1034,7 +1034,7 @@ token infix:sym<?^>   { <sym>  <O('%additive')> }
 token infix:sym<x>    { <sym>  <O('%replication')> }
 token infix:sym<xx>    { <sym>  <O('%replication')> }
 
-token infix:sym<~>    { <sym>  <O('%concatenation , :pirop<concat>')> }
+token infix:sym<~>    { <sym>  <O('%concatenation')> }
 
 token infix:sym<&>    { <sym> <O('%junctive_and')> }
 token infix:sym<|>    { <sym> <O('%junctive_or')> }

diff --git a/src/cheats/str-ops.pir b/src/cheats/str-ops.pir
@@ -5,15 +5,6 @@
     .return ($P0)
 .end
 
-.sub '&infix:<~>'
-    .param string a
-    .param string b
-    $S0 = concat a, b
-    $P0 = new ['Str']
-    assign $P0, $S0
-    .return ($P0)
-.end
-
 .sub '&infix:<~|>'
     .param string a
     .param string b

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -126,3 +126,9 @@ our multi infix:<max>(*@args) {
 our multi infix:«=>»($key, $value) {
     Pair.new(key => $key, value => $value);
 }
+
+our multi infix:<~>($a, $b) {
+    my $result = pir::new__Ps('Str');
+    pir::assign__vPS($result, pir::concat__SSS(~$a, ~$b));
+    $result
+}