Fixed linear typing of const tuples
This commit is contained in:
parent
b7ba8e7913
commit
840f6672df
|
@ -390,7 +390,7 @@ let rec typing_pat env = function
|
||||||
the expected linearity. *)
|
the expected linearity. *)
|
||||||
let rec typing_exp env e =
|
let rec typing_exp env e =
|
||||||
let l, env = match e.e_desc with
|
let l, env = match e.e_desc with
|
||||||
| Econst _ -> Ltop, env
|
| Econst _ -> lin_skeleton Ltop e.e_ty, env
|
||||||
| Evar x -> lin_of_ident x env, env
|
| Evar x -> lin_of_ident x env, env
|
||||||
| Elast _ -> Ltop, env
|
| Elast _ -> Ltop, env
|
||||||
| Epre (_, e) ->
|
| Epre (_, e) ->
|
||||||
|
|
Loading…
Reference in a new issue