(* 'top'-like tool for libvirt domains.
- * $Id: virt_top_main.ml,v 1.2 2007/08/30 13:16:57 rjones Exp $
*
* Just contains the main function.
*)
* the program under --debug ...).
*)
let error =
- let state = start_up () in
+ let setup = start_up () in
try
- main_loop state;
+ main_loop setup;
endwin ();
false
with