[svn:parrot] r34314 - trunk/languages/perl6/src/builtins

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
 
 

• [svn:parrot] r34314 - trunk/languages/perl6/src/builtins by pmichaud