Changeset 21955 for src/perl6

Timestamp:

08/19/08 22:40:30 (3 months ago)

Author:

lwall

Message:

[STD] add semicolon to feed ops as "sequencer" operators

Files:

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

src/perl6/STD.pm

@@ -154 +154 @@
 constant %loose_and       = (:prec<d=>, :assoc<left>,  :assign);
 constant %loose_or        = (:prec<c=>, :assoc<left>,  :assign);
-constant %feed_infix      = (:prec<b=>, :assoc<left>);
+constant %sequencer      = (:prec<b=>, :assoc<left>);
 constant %LOOSEST         = (:prec<a=!>);
 constant %terminator      = (:prec<a=>, :assoc<list>);
@@ -258 +258 @@
     our %o = %loose_or;
 } # end class
-class Feed_infix does PrecOp {
-    our %o = %feed_infix;
+class Sequencer does PrecOp {
+    our %o = %sequencer;
 } # end class
 class Terminator does PrecOp {
@@ -3145 +3145 @@
      { <sym> }
 
-token infix:sym« <== » ( --> Feed_infix)
-    { <sym> }
-
-token infix:sym« ==> » ( --> Feed_infix)
+token infix:sym<;> ( --> Sequencer)
+    { <sym> }
+
+token infix:sym« <== » ( --> Sequencer)
+    { <sym> }
+
+token infix:sym« ==> » ( --> Sequencer)
     { <sym> {*} }              #'
 
-token infix:sym« <<== » ( --> Feed_infix)
-    { <sym> }
-
-token infix:sym« ==>> » ( --> Feed_infix)
+token infix:sym« <<== » ( --> Sequencer)
+    { <sym> }
+
+token infix:sym« ==>> » ( --> Sequencer)
     { <sym> {*} }              #'