Changeset 21834 for src/perl6

Timestamp:

08/07/08 20:36:58 (4 months ago)

Author:

lwall

Message:

[STD] EXPR gets upset if we don't hoist $<sym> from prefix into pre

Files:

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

src/perl6/STD.pm

@@ -748 +748 @@
     [
     | <prefix>
-        { $<O> = $<prefix><O> }
+        { $<O> = $<prefix><O>; $<sym> = $<prefix><sym> }
                                                     {*}         #= prefix
     | <prefix_circumfix_meta_operator>
@@ -2791 +2791 @@
 
 ## named unary examples
+# (need \s* to win LTM battle with listops)
 token prefix:sleep ( --> Named_unary)
-    { <sym> » }
+    { <sym> » <?before \s*> }
 
 token prefix:abs ( --> Named_unary)
-    { <sym> » }
+    { <sym> » <?before \s*> }
 
 token prefix:int ( --> Named_unary)
-    { <sym> » }
+    { <sym> » <?before \s*> }
 
 token prefix:let ( --> Named_unary)
-    { <sym> » }
+    { <sym> » <?before \s*> }
 
 token prefix:temp ( --> Named_unary)
-    { <sym> » }
+    { <sym> » <?before \s*> }
 
 ## nonchaining binary