Permalink
Browse files

Pass the symbol through in (INFIXCON) expressions.

  • Loading branch information...
1 parent 25862be commit b85360216df7150573bbbc8e63ebcc12fcaa9bc8 @yallop committed Aug 1, 2013
Showing with 4 additions and 2 deletions.
  1. +4 −2 parsing/parser.mly
View
@@ -1125,9 +1125,11 @@ expr:
{ mkexp_cons (rhs_loc 2) (ghexp(Pexp_tuple[$5;$7])) (symbol_rloc()) }
| expr INFIXCON expr
- { mkexp(Pexp_construct(mkrhs (Lident $2) 2, Some (ghexp(Pexp_tuple[$1;$3])), false)) }
+ { mkexp(Pexp_construct(mkrhs (Lident $2) 2,
+ Some (ghexp(Pexp_tuple[$1;$3])), false)) }
| LPAREN INFIXCON RPAREN LPAREN expr COMMA expr RPAREN
- { mkexp_cons (rhs_loc 2) (ghexp(Pexp_tuple[$5;$7])) (symbol_rloc()) }
+ { mkexp(Pexp_construct(mkloc (Lident $2) (rhs_loc 2),
+ Some (ghexp(Pexp_tuple[$5;$7])), false)) }
| expr INFIXOP0 expr
{ mkinfix $1 $2 $3 }

0 comments on commit b853602

Please sign in to comment.