Browse files

perlito5 - parser - remove old Perl6 code

  • Loading branch information...
1 parent 94163c8 commit de61f09606545247bd2aa60b68a3e6270069a131 @fglock committed Nov 9, 2012
Showing with 0 additions and 15 deletions.
  1. +0 −4 html/perlito5.js
  2. +0 −4 perlito5.pl
  3. +0 −7 src5/lib/Perlito5/Expression.pm
View
4 html/perlito5.js
@@ -5272,10 +5272,6 @@ var p5100 = p5pkg['main'];
(v_v = (p5call(p5pkg["Perlito5::AST::Lookup"], "new", p5list_to_a('obj', null, 'index_exp', (v_v || (v_v = new p5ArrayRef([])))._array_.p5aget(2)), 0)));
throw(p5context([v_v], p5want));
};
- if ( ((p5str(p5pkg["Perlito5::Expression"].ref([(v_v || (v_v = new p5ArrayRef([])))._array_.p5aget(1)], 0)) == 'ARRAY') && (p5num(((v_v || (v_v = new p5ArrayRef([])))._array_.p5aget(1))) == 2)) ) {
- (v_v = (p5call(p5pkg["Perlito5::AST::Apply"], "new", p5list_to_a('code', 'pair', 'arguments', (v_v || (v_v = new p5ArrayRef([])))._array_.p5aget(1), 'namespace', ''), 0)));
- throw(p5context([v_v], p5want));
- };
throw((v_v || (v_v = new p5ArrayRef([])))._array_.p5aget(1));
};
return (p5context([v_v], p5want));
View
4 perlito5.pl
@@ -911,10 +911,6 @@ sub Perlito5::Expression::pop_term {
($v = Perlito5::AST::Lookup->new('obj', undef(), 'index_exp', $v->[2]));
return ($v)
};
- if (((ref($v->[1]) eq 'ARRAY') && (scalar($v->[1]) == 2))) {
- ($v = Perlito5::AST::Apply->new('code', 'pair', 'arguments', $v->[1], 'namespace', ''));
- return ($v)
- };
return ($v->[1])
};
return ($v)
View
7 src5/lib/Perlito5/Expression.pm
@@ -141,13 +141,6 @@ sub pop_term {
# say "# ", $v->perl;
return $v;
}
- if (ref($v->[1]) eq 'ARRAY' && scalar($v->[1]) == 2) {
- # say "# old style Pair ", $v->perl;
- # old style Pair - wrap it into a subroutine for now
- $v = Perlito5::AST::Apply->new( code => 'pair', arguments => $v->[1], namespace => '' );
- # say "# ", $v->perl;
- return $v;
- }
return $v->[1];
}
return $v;

0 comments on commit de61f09

Please sign in to comment.