Changeset 21640 for perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm

Timestamp:

07/30/08 22:43:35 (5 months ago)

Author:

fglock

Message:

[v6.pm] operator fixes

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm (modified) (2 diffs)

perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm

@@ -133 +133 @@
                 [
                     <?ws> 
-                    <Pugs::Grammar::Expression.parse('allow_semicolon', 1)> <?ws>? 
+                    <Pugs::Grammar::Expression.parse('no_comma', 1)> <?ws>? 
                     ')'
                     { return {
@@ -664 +664 @@
                 { return $/{'Pugs::Grammar::Quote.q'}->() }
             ^ ),
+        q(WHAT) => Pugs::Compiler::Token->compile( q^
+                <?ws> <Pugs::Grammar::Expression.parse('no_comma',1)> 
+                    { return {
+                        op1      => 'call',
+                        param    => $_[0]{'Pugs::Grammar::Expression.parse'}->(),
+                        sub      => {
+                                        'bareword' => 'WHAT',
+                                    },
+                    } }
+            ^ ),
         q() => Pugs::Compiler::Token->compile( q^
                 ### num/int