Permalink
Browse files

Code cleanup in catch/3 processing.

  • Loading branch information...
1 parent 168c162 commit f7d1bdc6079a4da35002828141a3e4c8083ebecd @arnsholt committed Feb 18, 2011
Showing with 1 addition and 11 deletions.
  1. +1 −11 src/parrotlog/Term.pm
View
@@ -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>,
- $haspopped,
- PAST::Stmts.new(
- $popeh,
- PAST::Op.new(:pasttype<bind>,
- $haspopped,
- PAST::Val.new(:value(1))))),
- );
+ $popeh);
my $recovery := PAST::Stmts.new(
PAST::Var.new(:name<parrotex>, :scope<register>, :isdecl,

0 comments on commit f7d1bdc

Please sign in to comment.