[Yapsi] used delegation instain copy-paste

Who kill their babbies, because they cannot frigth back?
masak · Aug 9, 2010 · c0dc9f1 · c0dc9f1
1 parent ea9058b
commit c0dc9f1
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/lib/Yapsi.pm b/lib/Yapsi.pm
@@ -83,12 +83,7 @@ class Yapsi::Perl6::Actions {
     };
 
     method TOP($/) {
-        @vars = ();
-        traverse-top-down($/, :skip['block'], :action(&find-declarations));
-        my $name = unique-block();
-        make my $block = { :$name, :vars(@vars.clone) };
-        traverse-top-down($/,
-                          :action(&connect-blocks.assuming($name, $block)));
+        block($/);
     }
 
     method block($/) {