Added --script option.

[virt-top.git] / virt-top / virt_top_main.ml

diff --git a/virt-top/virt_top_main.ml b/virt-top/virt_top_main.ml
index 5841362..32f5b5b 100644 (file)
--- a/virt-top/virt_top_main.ml
+++ b/virt-top/virt_top_main.ml
@@ -15,10 +15,10 @@ open Virt_top
  * 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