Add Warning when encountering not typed expression when cloking.
This commit is contained in:
parent
a72ab6fa08
commit
937d1f580b
|
@ -92,7 +92,10 @@ and unify_list t1_list t2_list =
|
||||||
try List.iter2 unify t1_list t2_list with | _ -> raise Unify
|
try List.iter2 unify t1_list t2_list with | _ -> raise Unify
|
||||||
|
|
||||||
let rec skeleton ck = function
|
let rec skeleton ck = function
|
||||||
| Tprod ty_list -> Cprod (List.map (skeleton ck) ty_list)
|
| Tprod ty_list ->
|
||||||
|
(match ty_list with
|
||||||
|
| [] -> Format.eprintf "Warning, an exp with void type@."; Ck ck
|
||||||
|
| _ -> Cprod (List.map (skeleton ck) ty_list))
|
||||||
| Tarray _ | Tid _ -> Ck ck
|
| Tarray _ | Tid _ -> Ck ck
|
||||||
|
|
||||||
let ckofct = function | Ck ck -> ck_repr ck | Cprod ct_list -> Cbase
|
let ckofct = function | Ck ck -> ck_repr ck | Cprod ct_list -> Cbase
|
||||||
|
|
Loading…
Reference in a new issue