|
@@ -438,7 +438,7 @@ and gen_expr ctx e =
|
|
| _ ->
|
|
| _ ->
|
|
print ctx "($_=";
|
|
print ctx "($_=";
|
|
gen_value ctx x;
|
|
gen_value ctx x;
|
|
- print ctx ",$bind($_,$_.%s)" s)
|
|
|
|
|
|
+ print ctx ",$bind($_,$_.%s))" s)
|
|
| TTypeExpr t ->
|
|
| TTypeExpr t ->
|
|
spr ctx (ctx.type_accessor t)
|
|
spr ctx (ctx.type_accessor t)
|
|
| TParenthesis e ->
|
|
| TParenthesis e ->
|