let commands = GrafiteMarshal.load_moo ~fname in
List.iter
(fun cmd ->
- printf " %s\n" (GrafiteAstPp.pp_cic_command cmd); flush stdout)
+ printf " %s\n%!"
+ (GrafiteAstPp.pp_command ~obj_pp:(fun _ -> assert false) cmd))
commands;
end)
(List.rev !moos)