Author: particle
Date: Wed Apr 26 14:47:48 2006
New Revision: 12441
Modified:
trunk/languages/perl6/lib/grammar_optok.pge
Log:
[perl6] operator precedence fix
~ -w -r -x etc are named unary, not symbolic unary
Modified: trunk/languages/perl6/lib/grammar_optok.pge
==============================================================================
--- trunk/languages/perl6/lib/grammar_optok.pge (original)
+++ trunk/languages/perl6/lib/grammar_optok.pge Wed Apr 26 14:47:48 2006
@@ -85,14 +85,6 @@
is pir(" $I0 = istrue %0\n %t = $I0")
{ ... }
-proto 'prefix:-w' is equiv('prefix:!') is nows { ... }
-proto 'prefix:-r' is equiv('prefix:!') is nows { ... }
-proto 'prefix:-x' is equiv('prefix:!') is nows { ... }
-proto 'prefix:-e' is equiv('prefix:!') is nows { ... }
-proto 'prefix:-z' is equiv('prefix:!') is nows { ... }
-proto 'prefix:-s' is equiv('prefix:!') is nows { ... }
-proto 'prefix:-f' is equiv('prefix:!') is nows { ... }
-proto 'prefix:-d' is equiv('prefix:!') is nows { ... }
proto 'prefix:=' is equiv('prefix:!') { ... }
proto 'prefix:*' is equiv('prefix:!') { ... }
proto 'prefix:**' is equiv('prefix:!') { ... }
@@ -211,6 +203,15 @@
is pir(" %r = abs %0")
{ ... }
+proto 'prefix:-w' is equiv('prefix:rand') is nows { ... }
+proto 'prefix:-r' is equiv('prefix:rand') is nows { ... }
+proto 'prefix:-x' is equiv('prefix:rand') is nows { ... }
+proto 'prefix:-e' is equiv('prefix:rand') is nows { ... }
+proto 'prefix:-z' is equiv('prefix:rand') is nows { ... }
+proto 'prefix:-s' is equiv('prefix:rand') is nows { ... }
+proto 'prefix:-f' is equiv('prefix:rand') is nows { ... }
+proto 'prefix:-d' is equiv('prefix:rand') is nows { ... }
+
## nonchaining binary
proto 'infix:<=>' is precedence('12=') is assoc('non')
