Implement * syntax

sorear · Jul 27, 2010 · 07ebf12 · 07ebf12
1 parent a97b2f5
commit 07ebf12
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Niecza/Actions.pm b/Niecza/Actions.pm
@@ -702,6 +702,10 @@ sub term__S_lambda { my ($cl, $M) = @_;
     $M->{_ast} = $cl->block_to_closure($M->{pblock}{_ast});
 }
 
+sub term__S_Star { my ($cl, $M) = @_;
+    $M->{_ast} = Op::Whatever->new(slot => $cl->gensym);
+}
+
 sub do_variable_reference { my ($cl, $M, $v) = @_;
     my $sl = $v->{sigil} . $v->{twigil} . $v->{name};