ocaml 3.09 transition

[helm.git] / helm / gTopLevel / logicalOperations.ml

diff --git a/helm/gTopLevel/logicalOperations.ml b/helm/gTopLevel/logicalOperations.ml
index 93c511f138336469b9bb5b3e9cc046effc9dd69f..3fab938a058360d73f93c9d9dcf4ec6b2892af72 100644 (file)
--- a/helm/gTopLevel/logicalOperations.ml
+++ b/helm/gTopLevel/logicalOperations.ml
@@ -94,8 +94,10 @@ let to_sequent id ids_to_terms ids_to_father_ids =
        None -> assert false
      | Some (_,metasenv,_,_) -> metasenv
    in
-    let ty = CicTypeChecker.type_of_aux' metasenv context term in
-     P.perforate context term ty (* P.perforate also sets the goal *)
+    let ty,_ = (* TASSI: FIXME ehhmmmm *)
+      CicTypeChecker.type_of_aux' metasenv context term CicUniv.empty_ugraph 
+    in
+      P.perforate context term ty (* P.perforate also sets the goal *)
 ;;
 
 exception FocusOnlyOnMeta;;
@@ -110,8 +112,10 @@ let focus id ids_to_terms ids_to_father_ids =
        None -> assert false
      | Some (_,metasenv,_,_) -> metasenv
    in
-    let ty = CicTypeChecker.type_of_aux' metasenv context term in
-     match term with
-        Cic.Meta (n,_) -> P.goal := Some n
-      | _ -> raise FocusOnlyOnMeta
+    let ty,_ = 
+      CicTypeChecker.type_of_aux' metasenv context term CicUniv.empty_ugraph 
+    in
+      match term with
+          Cic.Meta (n,_) -> P.goal := Some n
+       | _ -> raise FocusOnlyOnMeta
 ;;