Fix bad clock expectation for static_exps.
This commit is contained in:
parent
f124bb4fd7
commit
1719e2eb36
|
@ -117,7 +117,7 @@ let typ_of_name h x = Env.find x h
|
||||||
|
|
||||||
let rec typing h e =
|
let rec typing h e =
|
||||||
let ct = match e.e_desc with
|
let ct = match e.e_desc with
|
||||||
| Econst _ -> Ck (new_var ())
|
| Econst se -> skeleton (new_var ()) se.se_ty
|
||||||
| Evar x -> Ck (typ_of_name h x)
|
| Evar x -> Ck (typ_of_name h x)
|
||||||
| Efby (c, e) -> typing h e
|
| Efby (c, e) -> typing h e
|
||||||
| Eapp({a_op = op}, args, r) ->
|
| Eapp({a_op = op}, args, r) ->
|
||||||
|
|
Loading…
Reference in a new issue