* Implement "do" as a no-op.

sorear · Jul 19, 2010 · 4393c69 · 4393c69
1 parent 009a2f2
commit 4393c69
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Niecza/Actions.pm b/Niecza/Actions.pm
@@ -1106,6 +1106,9 @@ sub blast { my ($cl, $M) = @_;
 }
 
 sub statement_prefix {}
+sub statement_prefix__S_do { my ($cl, $M) = @_;
+    $M->{_ast} = $M->{blast}{_ast}{do};
+}
 sub statement_prefix__S_PREMinusINIT { my ($cl, $M) = @_;
     my $var = $cl->gensym;