develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35365 - trunk/languages/perl6/src/classes

From:
pmichaud
Date:
January 10, 2009 14:47
Subject:
[svn:parrot] r35365 - trunk/languages/perl6/src/classes
Message ID:
20090110224721.7EC80CB9F9@x12.develooper.com
Author: pmichaud
Date: Sat Jan 10 14:47:20 2009
New Revision: 35365

Modified:
   trunk/languages/perl6/src/classes/List.pir

Log:
[rakudo]:  Adjust flattening to understand ObjectRef vs. Scalar .


Modified: trunk/languages/perl6/src/classes/List.pir
==============================================================================
--- trunk/languages/perl6/src/classes/List.pir	(original)
+++ trunk/languages/perl6/src/classes/List.pir	Sat Jan 10 14:47:20 2009
@@ -278,7 +278,7 @@
   flat_loop_1:
     .local pmc elem
     elem = self[i]
-    $I0 = isa elem, 'ObjectRef'
+    $I0 = isa elem, 'Perl6Scalar'
     if $I0 goto flat_next
     $I0 = can elem, '!flatten'
     if $I0 goto flat_elem



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