[svn:parrot] r18901 - in trunk: . languages/perl6/src/PAST

[coke]

Author: coke
Date: Sat Jun  9 18:30:48 2007
New Revision: 18901

Modified:
   trunk/   (props changed)
   trunk/languages/perl6/src/PAST/Grammar.tg

Log:
[perl6]
* pass t/spec/01-sanity/06-use.t again.


Modified: trunk/languages/perl6/src/PAST/Grammar.tg
==============================================================================
--- trunk/languages/perl6/src/PAST/Grammar.tg   (original)
+++ trunk/languages/perl6/src/PAST/Grammar.tg   Sat Jun  9 18:30:48 2007
@@ -79,12 +79,9 @@
     .local string name_string
     name_string = name
 
-    .local int is_v6
-    is_v6 = iseq name_string, 'v6'
-    unless is_v6 goto make_use_op
-    .return ()
+    if name_string == 'v6' goto  use_pragma
+    if name_string == 'lib' goto use_pragma
 
-  make_use_op:
     .local pmc use_op
     use_op = new 'PAST::Op'
     use_op.'init'('node' => $P0, 'name' => 'use')
@@ -103,6 +100,10 @@
     .return tree.'get'('past', $P0, 'Perl6::Grammar::statement_control')
   closure_trait:
     .return tree.'get'('past', $P0, 'Perl6::Grammar::closure_trait')
+
+  use_pragma:
+    # For now, ignore all pragmas
+    .return ()
 }