let ts = loop 0 0 in
()
-let run debug images =
- List.iter (
- fun (domid, domname, arch, mem, lookup_ksym) ->
- search debug mem lookup_ksym
- ) images
+let run debug (_, _, _, mem, lookup_ksym, _) =
+ search debug mem lookup_ksym
let summary = s_"list processes in virtual machine"
let description = s_"\