Changeset 22093 for src/perl6

Timestamp:

09/02/08 08:56:12 (3 months ago)

Author:

lwall

Message:

[t] more system, require, does, defer, label cleanup

Files:

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

src/perl6/STD.pm

@@ -655 +655 @@
 
     # add label as a pseudo type
-    # {{ eval 'COMPILING::{"::$<identifier>"} = Label.new($<identifier>)' }}  # XXX need statement ref too?
+    {{ %typenames{$<identifier>.text} = 'LABEL'; }}
 
 }
@@ -1234 +1234 @@
 token package_declarator:require {   # here because of declarational aspects
     <sym> <.ws>
-    <module_name> <EXPR>?
+    [
+    || <module_name> <EXPR>?
+    || <EXPR>
+    ]
 }
 
@@ -2701 +2704 @@
 token statement_prefix:contend { <sym> <?before \s> <.ws> <statement> }
 token statement_prefix:async   { <sym> <?before \s> <.ws> <statement> }
+token statement_prefix:maybe   { <sym> <?before \s> <.ws> <statement> }
 token statement_prefix:lazy    { <sym> <?before \s> <.ws> <statement> }
 
@@ -2740 +2744 @@
 token term:sym<self> ( --> Term)
     { <sym> » }
+
+token term:sym<defer> ( --> Term)
+    { <defer> » }
 
 token term:rand ( --> Term)