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

Partially revert commit 46a5262a (only file...

Partially revert commit 46a5262a (only file typing/ to make balance type (in toplevel). This should be investigated more thoroughly.
parent f4ff999e
......@@ -395,8 +395,8 @@ module IType = struct
let l = ref [] in
for i=0 to (Array.length pargs) - 1 do
let err s = Error s in
l := (pargs.(i), typ ~err (derecurs env a.(i)))::!l
let tt = typ ~err:(fun s -> Error s) (derecurs env a.(i)) in
l := (pargs.(i), tt)::!l
|Error s -> raise_loc_generic loc s
|_ -> assert false
......@@ -469,9 +469,9 @@ module IType = struct
(U.to_string v)
let al =
let a = Array.make (List.length pl) ( "dummy") in
(* List.iteri (fun i v -> a.(i) <- (List.assoc (U.to_string v) vars)) pl; *)
List.iteri (fun i v -> a.(i) <- (Ident.U.to_string v)) pl;
let a = Array.make (List.length pl) ( "dummy")in
(* XXX here I use instead of string compare *)
List.iteri (fun i v -> a.(i) <- (List.assoc (U.to_string v) vars)) pl;
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