recompute env dict on every command

src-bindings/node/node.ml

@@ -44,7 +44,7 @@ module Process = struct
 
     let set k v = Ojs.set_prop_ascii env k ([%js.of: string] v)
 
-    include [%js: val env : string Interop.Dict.t [@@js.global "process.env"]]
+    let env () = Interop.Dict.t_of_js [%js.to: string] env
   end
 end
 

src-bindings/node/node.mli

@@ -32,7 +32,7 @@ module Process : sig
 
     val set : string -> string -> unit
 
-    val env : string Interop.Dict.t
+    val env : unit -> string Interop.Dict.t
   end
 end
 

src/extension_instance.ml

@@ -62,7 +62,7 @@ end = struct
       in
       Interop.Dict.union
         (fun _k _v1 v2 -> Some v2)
-        Process.Env.env
+        (Process.Env.env ())
         extra_env_vars
     in
     match command with