xenvm: rename socket into legacy_socket

diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml
index 07c46fbfbfdd36e2316da3cb0c9740d2be5c2139..a58241c52e15b6566d07aaf647af0de32c20cbc5 100644 (file)
--- a/xenvm/xenvm.ml
+++ b/xenvm/xenvm.ml
@@ -483,7 +483,7 @@ let do_task quit state (task, args) =
                reread_config state path;
                Xenvmlib.Ok
 
-let monitor_rpc socket state =
+let monitor_rpc legacy_socket state =
        let read_config_noexn state path =
                try reread_config state path
                with exn ->
@@ -504,13 +504,13 @@ let monitor_rpc socket state =
        do
                let has_work = List.fold_left (fun acc con -> acc || con_has_work con) false !connections in
                let timeout = if has_work then 0. else 1. in
-               let readset = socket :: (List.map con_get_fd !connections) in
+               let readset = legacy_socket :: (List.map con_get_fd !connections) in
                let r, _, _ =
                        try Unix.select readset [] [] timeout
                        with _ -> [], [], []
                        in
-               if List.mem socket r then (
-                       let (fd, _) = Unix.accept socket in
+               if List.mem legacy_socket r then (
+                       let (fd, _) = Unix.accept legacy_socket in
                        connections := (con_new fd true) :: !connections;
                );
                List.iter (fun con ->