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

[pmichaud]

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') {...}