develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
pmichaud
Date:
December 23, 2008 22:10
Subject:
[svn:parrot] r34314 - trunk/languages/perl6/src/builtins
Message ID:
20081224061014.5344CCBA12@x12.develooper.com
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
 
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About