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

[svn:parrot] r33652 - in branches/assign/languages/perl6/src: classes parser

From:
pmichaud
Date:
December 8, 2008 06:43
Subject:
[svn:parrot] r33652 - in branches/assign/languages/perl6/src: classes parser
Message ID:
20081208144344.5CEE2CB9AF@x12.develooper.com
Author: pmichaud
Date: Mon Dec  8 06:43:43 2008
New Revision: 33652

Modified:
   branches/assign/languages/perl6/src/classes/List.pir
   branches/assign/languages/perl6/src/parser/grammar-oper.pg

Log:
[rakudo]:  clean up lvalue and list() semantics


Modified: branches/assign/languages/perl6/src/classes/List.pir
==============================================================================
--- branches/assign/languages/perl6/src/classes/List.pir	(original)
+++ branches/assign/languages/perl6/src/classes/List.pir	Mon Dec  8 06:43:43 2008
@@ -688,14 +688,14 @@
 
 =item C<list(...)>
 
-Build a List from its arguments.
+Build a flattened List from its arguments.
 
 =cut
 
 .namespace []
 .sub 'list'
     .param pmc values          :slurpy
-    .tailcall values.'list'()
+    .tailcall values.'!flatten'()
 .end
 
 =item C<infix:,(...)>

Modified: branches/assign/languages/perl6/src/parser/grammar-oper.pg
==============================================================================
--- branches/assign/languages/perl6/src/parser/grammar-oper.pg	(original)
+++ branches/assign/languages/perl6/src/parser/grammar-oper.pg	Mon Dec  8 06:43:43 2008
@@ -167,6 +167,7 @@
 #    is pasttype('copy')
     is pasttype('call')
     is assoc('right')
+    is lvalue(1)
     { ... }
 proto prefix:<[,]> is precedence('e=') is subname('list') {...}
 proto prefix:<[&]> is equiv(prefix:<[,]>) is subname('all') {...}



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