let
pp_current fmt =
match
!current
with
|
None
->
()
|
Some
(cmd,args)
->
pp_command fmt cmd args