Changeset 23055

Timestamp:

11/22/08 17:56:41 (7 weeks ago)

Author:

lwall

Message:

[gimme5] allow before inside an after
[STD] make sure my() is a function call

Location:

src/perl6

Files:

• STD.pm (modified) (4 diffs)
• gimme5 (modified) (1 diff)

src/perl6/STD.pm

@@ -422 +422 @@
 
 token category:scope_declarator { <sym> }
-proto token scope_declarator () { <...> }
+proto token scope_declarator (:$endsym is context = 'nofun') { <...> }
 
 token category:package_declarator { <sym> }
@@ -471 +471 @@
 token unspacey { <.unsp>? }
 token spacey { <?before \s | '#'> }
+token nofun { <!before '(' | '.(' | '\\' > }
 
 # Lexical routines
@@ -3210 +3211 @@
 token infix:sym<.=> ( --> Item_assignment) {
     <sym> <.ws>
-    [ <?before \w+';' | 'new' | 'sort' | 'subst' | 'trans' > || <worryobs('.= as append operator', '~=')> ]
+    [ <?before \w+';' | < new sort subst trans reverse uniq map samecase > > || <worryobs('.= as append operator', '~=')> ]
     { $<O><nextterm> = 'dottyop' }
 }
@@ -3272 +3273 @@
     :my $t;
     <identifier>
-    {{ $t = $<identifier>.text; }}
+    { $t = $<identifier>.text; }
     <args( $¢.is_type($t) )>
     {{

src/perl6/gimme5

@@ -2006 +2006 @@
         my $re = $$self{re};
         my $name = $$self{name};
-        ::panic("Can't reverse $name") if $REV;
+        ::panic("Can't reverse $name") if $REV and $name ne 'before';
+        local $REV = '';
         $PURE = 0 if $impure{$name};
         local $REV = '_rev' if $name eq 'after';