Commit 0b1961d9 authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Cosmetic changes.

parent f93a6ba1
......@@ -964,7 +964,7 @@ and type_check' loc env ed constr precise = match ed with
let dom = Types.Arrow.domain(t1arrow) in
let t2 = type_check env e2 Types.any true in
let res =
if not(Types.is_closed env.delta dom) ||
if not (Types.is_closed env.delta dom) ||
not (Types.is_closed env.delta t2) then
(* get t2 without constraint check *)
let (sl,res) =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment