[svn:parrot] r26058 - trunk/languages/perl6/src/parser

[particle]

Author: particle
Date: Mon Feb 25 08:06:28 2008
New Revision: 26058

Modified:
   trunk/languages/perl6/src/parser/actions.pm
   trunk/languages/perl6/src/parser/grammar.pg

Log:
[rakudo] remove deprecated compiler directives replaced by t/spec/fudge

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Mon Feb 25 08:06:28 2008
@@ -457,10 +457,6 @@
     make $past;
 }
 
-method compiler_directive($/) {
-    make $( $<term> );
-}
-
 
 method postfix($/, $key) {
     make $( $/{$key} );

Modified: trunk/languages/perl6/src/parser/grammar.pg
==============================================================================
--- trunk/languages/perl6/src/parser/grammar.pg (original)
+++ trunk/languages/perl6/src/parser/grammar.pg Mon Feb 25 08:06:28 2008
@@ -87,8 +87,7 @@
 token unv {
     || \h+
     || ^^ <.pod_comment>
-    ##  if '#' is followed by '?perl6:', then it's a compiler_directive
-    || '#' <!before '?perl6:'> \N*
+    || '#' \N*
 }
 
 ##  The <afterws> rule returns true if we're immediate after