Code cleanup in catch/3 processing.

arnsholt · Feb 18, 2011 · f7d1bdc · f7d1bdc
1 parent 168c162
commit f7d1bdc
Showing 1 changed file with 1 addition and 11 deletions.
diff --git a/src/parrotlog/Term.pm b/src/parrotlog/Term.pm
@@ -254,22 +254,12 @@ method as_query($in_block = 0) {
         my $prologex := PAST::Var.new(:name<prologex>, :scope<register>);
         my $rethrow := PAST::Op.new(:pirop<rethrow__vP>, $parrotex);
         my $popeh := PAST::Op.new(:pirop<pop_eh>);
-        my $haspopped := PAST::Var.new(:name<haspopped>, :scope<register>);
 
         my $goal := PAST::Stmts.new(
-            PAST::Var.new(:name<haspopped>, :scope<register>, :isdecl,
-                :viviself(PAST::Val.new(:value(0)))),
             Parrotlog::Compiler::procedure_call('call/1',
                 $paths,
                 self.args[0].past),
-            PAST::Op.new(:pasttype<unless>,
+            $popeh);
-                $haspopped,
-                PAST::Stmts.new(
-                    $popeh,
-                    PAST::Op.new(:pasttype<bind>,
-                        $haspopped,
-                        PAST::Val.new(:value(1))))),
-        );
 
         my $recovery := PAST::Stmts.new(
             PAST::Var.new(:name<parrotex>, :scope<register>, :isdecl,