- let status = (MatitaScript.current ())#status in
- let moo, metadata = status.moo_content_rev in
- List.iter (fun cmd -> prerr_endline
- (GrafiteAstPp.pp_command cmd)) (List.rev moo);
- List.iter (fun m -> prerr_endline
- (GrafiteAstPp.pp_metadata m)) metadata);
+ let grafite_status = (MatitaScript.current ())#grafite_status in
+ let moo = grafite_status.moo_content_rev in
+ List.iter
+ (fun cmd ->
+ prerr_endline (GrafiteAstPp.pp_command ~obj_pp:(fun _ -> assert false)
+ cmd))
+ (List.rev moo));