add (preliminary?) action method for defterm

rakudo · Aug 13, 2012 · 6f4df39 · 6f4df39
1 parent 5740db1
commit 6f4df39
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2869,6 +2869,12 @@ class Perl6::Actions is HLL::Actions {
         else                     { %*PARAM_INFO<named_names>.push(''); }
     }
 
+    method defterm($/) {
+        %*PARAM_INFO<variable_name> := ~$<identifier>;
+        %*PARAM_INFO<desigilname>   := ~$<identifier>;
+        %*PARAM_INFO<sigil>         := '';
+    }
+
     method default_value($/) {
         make $<EXPR>.ast;
     }