Fix bad clock expectation for static_exps.
This commit is contained in:
parent
f124bb4fd7
commit
1719e2eb36
1 changed files with 1 additions and 1 deletions
|
@ -117,7 +117,7 @@ let typ_of_name h x = Env.find x h
|
|||
|
||||
let rec typing h e =
|
||||
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)
|
||||
| Efby (c, e) -> typing h e
|
||||
| Eapp({a_op = op}, args, r) ->
|
||||
|
|
Loading…
Reference in a new issue