[patch] do EXPR

[Agent Zhang]

Hello~

Here is a snippet from the Pugs test suite:

{
my $ret = eval 'do 42';
ok(!$ret, 'do EXPR should not work', :todo);
# XXX or should it? Feels weird...
}

which motivated me to create the following patch for S04:

Index: D:/projects/Perl6-Syn/S04.pod

===================================================================

--- D:/projects/Perl6-Syn/S04.pod (revision 10955)

+++ D:/projects/Perl6-Syn/S04.pod (working copy)

@@ -349,8 +349,9 @@

$x = do if $a { $b } else { $c };

-This construct only allows you to prefix a statement. If you want to
-continue the expression after the statement you must use the curly form.
+This construct only allows you to prefix I<one> statement (or an expression).
+If you want to continue the expression after the statement you must use the
+curly form.

Since C<do> is defined as going in front of a statement, it follows
that it can always be followed by a statement label. This is particularly

Cheers,
Agent