Author: pmichaud
Date: Tue Dec 23 22:10:10 2008
New Revision: 34314
Modified:
trunk/languages/perl6/src/builtins/op.pir
Log:
[rakudo]: Make sure infix:<~> and prefix:<~> return Str.
We hopefully can get rid of this when we have HLL support, but
let's at least get them right for now.
Modified: trunk/languages/perl6/src/builtins/op.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/op.pir (original)
+++ trunk/languages/perl6/src/builtins/op.pir Tue Dec 23 22:10:10 2008
@@ -136,7 +136,9 @@
.sub 'prefix:~' :multi(_)
.param string a
- .return (a)
+ $P0 = new 'Str'
+ $P0 = a
+ .return ($P0)
.end
@@ -307,7 +309,9 @@
.param string a
.param string b
$S0 = concat a, b
- .return ($S0)
+ $P0 = new 'Str'
+ assign $P0, $S0
+ .return ($P0)
.end
