Commit 08dd0b62 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-06-26 19:41:55 by afrisch] Style

Original author: afrisch
Date: 2004-06-26 19:41:55+00:00
parent 0451e411
...@@ -477,8 +477,10 @@ and translate_type_constr cduce lident map name list = ...@@ -477,8 +477,10 @@ and translate_type_constr cduce lident map name list =
let head = ML.Ident.name ( ML.Path.head name ) in let head = ML.Ident.name ( ML.Path.head name ) in
let file = head ^ ".cmi" in let file = head ^ ".cmi" in
let file = ML.Misc.find_in_path_uncap !ML.Config.load_path file in let file = ML.Misc.find_in_path_uncap !ML.Config.load_path file in
Printf.eprintf "Found file %s\n" file;
let sign = ML.Env.read_signature head file in let sign = ML.Env.read_signature head file in
let node = find_node name in let node = find_node name in
(* How would that be different from the previous call ?? -- AF *)
ML_ident ( name, translate_parameters cduce lident map list, node ) ML_ident ( name, translate_parameters cduce lident map list, node )
and translate_type_desc cduce lident map id = function and translate_type_desc cduce lident map id = function
......
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