The kernel _must_ check the correctness of the height since the reduction

[helm.git] / helm / software / components / grafite_engine / grafiteEngine.ml

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index 8101dd667b96572d2581108e806004b28ad8f007..d4738a5515d73cb9cabc3b9a948869d1ef6dd4a8 100644 (file)
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -776,7 +776,7 @@ let rec eval_command = {ec_go = fun ~disambiguate_command opts status
               let obj_kind =
                NCicUntrusted.map_obj_kind 
                 (NCicUntrusted.apply_subst subst []) obj_kind in
-              let height = NCicUntrusted.height_of_obj_kind uri obj_kind in
+              let height = NCicTypeChecker.height_of_obj_kind uri obj_kind in
               let obj = uri,height,[],[],obj_kind in
                NCicTypeChecker.typecheck_obj obj;
                NCicLibrary.add_obj uri obj;