Changeset 16858

Show
Ignore:
Timestamp:
07/06/07 18:54:00 (17 months ago)
Author:
lwall
Message:

[STD] lotsa places where multiple "statements" should be allowed in brackets

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/Perl-6.0.0-STD.pm

    r16857 r16858  
    377377# we might be embedded in something else. 
    378378rule comp_unit (:$begin_compunit is context = 1) { 
    379     <statement_list> 
     379    <semilist> 
    380380    [ <$+unitstop> || <panic: Can't understand next input--giving up> ] 
    381381    {*} 
    … …  
    397397token block { 
    398398    '{' 
    399     <statement_list> 
     399    <semilist> 
    400400    [ '}' || <panic: Missing right brace> ] 
    401401    [ 
    … …  
    419419} 
    420420 
    421 rule statement_list { 
     421rule semilist { 
    422422    <statement>* 
    423423    {*} 
    … …  
    874874 
    875875token postcircumfix:sym<( )> (--> Methodcall) 
    876     { '(' <EXPR> ')' {*} }                                      #= ( ) 
     876    { '(' <semilist> ')' {*} }                                      #= ( ) 
    877877 
    878878token postcircumfix:sym<[ ]> (--> Methodcall) 
    879     { '[' <EXPR> ']' {*} }                                      #= [ ] 
     879    { '[' <semilist> ']' {*} }                                      #= [ ] 
    880880 
    881881token postcircumfix:sym<{ }> (--> Methodcall) 
    882     { '{' <EXPR> '}' {*} }                                      #= { } 
     882    { '{' <semilist> '}' {*} }                                      #= { } 
    883883 
    884884token postcircumfix:sym«< >» (--> Methodcall) 
    … …  
    905905 
    906906    [ 
    907     | '.'? <?unsp>? '(' <EXPR> ')' 
     907    | '.'? <?unsp>? '(' <semilist> ')' 
    908908    | ':' <?before \s> <!{ $+inquote }> <EXPR(%list_prefix)> 
    909909    | <null> 
    … …  
    912912} 
    913913 
    914 token circumfix:sym<( )> { '(' <statement> ')' {*} }            #= ( ) 
    915 token circumfix:sym<[ ]> { '[' <statement> ']' {*} }            #= [ ] 
     914token circumfix:sym<( )> { '(' <semilist> ')' {*} }            #= ( ) 
     915token circumfix:sym<[ ]> { '[' <semilist> ']' {*} }            #= [ ] 
    916916 
    917917token circumfix:sym«< >»   { '<'  <anglewords '>'> '>'  {*} } #'#= < > 
    … …  
    10961096 
    10971097token subcall { 
    1098     <subshortname> <?unsp>? '.'? '(' <EXPR> ')' 
     1098    <subshortname> <?unsp>? '.'? '(' <semilist> ')' 
    10991099    {*} 
    11001100} 
    … …  
    18741874 
    18751875token circumfix:sigil ( --> Term) 
    1876     { <sym <sigil>> $<sym>:='(' <statement> $<sym>:=')' {*} }        #= $( )  
     1876    { <sym <sigil>> $<sym>:='(' <semilist> $<sym>:=')' {*} }        #= $( )  
    18771877 
    18781878token circumfix:typecast ( --> Term) 
    1879     { <sym <typename>> $<sym>:='(' <statement> $<sym>:=')' {*} }     #= Type( )  
     1879    { <sym <typename>> $<sym>:='(' <semilist> $<sym>:=')' {*} }     #= Type( )  
    18801880 
    18811881token circumfix:sym<( )> ( --> Term) 
    1882     { '(' <EXPR> ')'  {*} }                                     #= ( ) 
     1882    { '(' <semilist> ')'  {*} }                                     #= ( ) 
    18831883 
    18841884token postcircumfix:sym<( )> ( --> Term) 
    1885     { '(' <EXPR> ')'  {*} }                                     #= ( ) 
     1885    { '(' <semilist> ')'  {*} }                                     #= ( ) 
    18861886 
    18871887## methodcall 
    … …  
    25952595                                | ':' <?ws> 
    25962596                                    <q_unbalanced(qlang('Q',':qq'), :stop«>»))> 
    2597                                 | '(' <EXPR> ')' 
     2597                                | '(' <semilist> ')' 
    25982598                                | <?ws> <EXPR(%LOOSEST,&assertstopper)> 
    25992599                                ]? 
    … …  
    26172617} 
    26182618 
    2619 token regex_mod_arg { '(' <EXPR> ')' } 
     2619token regex_mod_arg { '(' <semilist> ')' } 
    26202620 
    26212621token regex_mod_internal:adv {