Add Env.add

Just add 1 binding to Env

src/env.ml

@@ -80,3 +80,6 @@ let extend t ~vars =
         | Some _ -> v2
         | None -> v1)
     )
+
+let add t ~var ~value =
+  make ~base:t.base ~extra:(Map.add t.extra var value)

src/env.mli

@@ -16,3 +16,5 @@ val to_unix : t -> string array
 val get : t -> Var.t -> string option
 
 val extend : t -> vars:string Map.t -> t
+
+val add : t -> var:Var.t -> value:string -> t