Changeset 22177 for src/perl6

Timestamp:

09/07/08 06:21:06 (3 months ago)

Author:

lwall

Message:

[STD] trying "where" as Junctional infix resembling "&", but with order guaranteed

Files:

• src/perl6/STD.pm (modified) (4 diffs)

src/perl6/STD.pm

@@ -2569 +2569 @@
     <longname> { $¢.add_type($<longname>); }
     [ of <fulltypename> ]?
-    where <termish>
+    [where <EXPR(item %chaining)> ]?    # (EXPR can parse multiple where clauses)
 }
 
@@ -2927 +2927 @@
     { <sym> }
 
+token infix:where ( --> Junctive_and)
+    { <sym> }
+
 
 ## junctive or (any)
@@ -3203 +3206 @@
     | '(' <in: ')', 'semilist', 'argument list'> {*}              #= func args
     | <.unsp> '.'? '(' <in: ')', 'semilist', 'argument list'> {*} #= func args
-    | {} <?before \s> <.ws>
-        [
-        || <!{ $istype }> <!infixstopper> <arglist> { $listopish = 1 }
-        || <?{ $istype }> ['where' <.ws> <constraints=termish> <.ws>]*
-        ]
-        
+    | {} [<?before \s> <!{ $istype }> <.ws> <!infixstopper> <arglist> { $listopish = 1 }]?
     ]
 
@@ -3234 +3232 @@
             {*}                                                 #= packagevar 
         ]?
-        # subset type?
-        <.ws>
-        [ 'where' <.ws> <constraints=termish> <.ws> ]*
         {*}                                                     #= typename