print nobjects (hack with Obj.magic)

From: tassi <tassi@c2b2084f-9a08-0410-b176-e24b037a169a>

diff --git a/helm/software/components/grafite/grafiteAstPp.ml b/helm/software/components/grafite/grafiteAstPp.ml
index f489b15b5e399667c655ea336a39fba0d5a9b7b0..66994a410baa3018fee4c2cf79d7435b0dd557a7 100644 (file)
--- a/helm/software/components/grafite/grafiteAstPp.ml
+++ b/helm/software/components/grafite/grafiteAstPp.ml
@@ -96,6 +96,7 @@ let rec pp_ntactic ~map_unicode_to_tex =
   pp_tactic_pattern ~map_unicode_to_tex ~lazy_term_pp ~term_pp in
  function
   | NApply (_,t) -> "napply " ^ CicNotationPp.pp_term t
+  | NSmartApply (_,t) -> "fixme"
   | NAuto (_,(None,flgs)) ->
       "nauto" ^
         String.concat " " (List.map (fun a,b -> a ^ "=" ^ b) flgs)
@@ -376,14 +377,14 @@ let pp_coercion ~term_pp t do_composites arity saturations=
     (term_pp t) arity saturations
     (if do_composites then "" else "nocomposites")
 
-let pp_ncommand = function
+let pp_ncommand ~obj_pp = function
   | UnificationHint (_,t, n) -> 
       "unification hint " ^ string_of_int n ^ " " ^ CicNotationPp.pp_term t
   | NDiscriminator (_,_)
   | NInverter (_,_,_,_,_)
-  | NObj (_,_)
   | NUnivConstraint (_) -> "not supported"
   | NCoercion (_) -> "not supported"
+  | NObj (_,obj) -> obj_pp obj
   | NQed (_) -> "nqed"
   | NCopy (_,name,uri,map) -> 
       "copy " ^ name ^ " from " ^ NUri.string_of_uri uri ^ " with " ^ 
@@ -456,7 +457,9 @@ let pp_executable ~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp =
      pp_non_punctuation_tactical tac
      ^ pp_punctuation_tactical punct
   | Command (_, cmd) -> pp_command ~term_pp ~obj_pp cmd ^ "."
-  | NCommand (_, cmd) -> pp_ncommand cmd ^ "."
+  | NCommand (_, cmd) -> 
+      let obj_pp = Obj.magic obj_pp in
+      pp_ncommand ~obj_pp cmd ^ "."
                       
 let pp_comment ~map_unicode_to_tex ~term_pp ~lazy_term_pp ~obj_pp =
   function