compose tactic restore and added nocomposites keyword

[helm.git] / components / grafite / grafiteAstPp.ml

diff --git a/components/grafite/grafiteAstPp.ml b/components/grafite/grafiteAstPp.ml
index cf9106ea374d44527481c5e12297be63ee52f9f2..fd3c444b9d26e009e55b23453949e60bd1df5ebe 100644 (file)
--- a/components/grafite/grafiteAstPp.ml
+++ b/components/grafite/grafiteAstPp.ml
@@ -265,9 +265,9 @@ let pp_default what uris =
     (String.concat " " (List.map UriManager.string_of_uri uris))
 
 let pp_coercion uri do_composites arity saturations=
-   Printf.sprintf "coercion %s %d %d (* %s *)"
+   Printf.sprintf "coercion %s %d %d %s"
     (UriManager.string_of_uri uri) arity saturations
-    (if do_composites then "compounds" else "no compounds")
+    (if do_composites then "" else "nocomposites")
     
 let pp_command ~term_pp ~obj_pp = function
   | Index (_,_,uri) -> "Indexing " ^ UriManager.string_of_uri uri