X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite%2FgrafiteMarshal.ml;h=cc4423b96e83a3171a0861e7a2d389f77a99b208;hb=b05fae519ae04a4a5dc79108f3d4ebe1bd4e112d;hp=2b1ed9dbaafb6765e1acc78f04b4770fcc1b4e6e;hpb=abd2098b6c4a40b36bb4b950c607eb4b4a7852bc;p=helm.git

diff --git a/helm/software/components/grafite/grafiteMarshal.ml b/helm/software/components/grafite/grafiteMarshal.ml
index 2b1ed9dba..cc4423b96 100644
--- a/helm/software/components/grafite/grafiteMarshal.ml
+++ b/helm/software/components/grafite/grafiteMarshal.ml
@@ -25,7 +25,7 @@
 
 (* $Id$ *)
 
-type ast_command = Cic.obj GrafiteAst.command
+type ast_command = (Cic.term,Cic.obj) GrafiteAst.command
 type moo = ast_command list
 
 let format_name = "grafite"
@@ -48,8 +48,9 @@ let rehash_cmd_uris =
       GrafiteAst.Coercion (loc, rehash_uri uri, close, arity)
   | cmd ->
       prerr_endline "Found a command not expected in a .moo:";
+      let term_pp _ = assert false in
       let obj_pp _ = assert false in
-      prerr_endline (GrafiteAstPp.pp_command ~obj_pp cmd);
+      prerr_endline (GrafiteAstPp.pp_command ~term_pp ~obj_pp cmd);
       assert false
 
 let save_moo ~fname moo = save_moo_to_file ~fname (List.rev moo)