let
command (_,fmt) cmd args =
begin
current :=
Some
(cmd,args) ;
pp_command fmt cmd args ;
end