Minor change

runtime/eval.ml

@@ -77,7 +77,7 @@ let pp_lambda_env ppf (env,locals) =
 
 let apply_sigma sigma = function
   |Value.Pair(v1,v2,sigma') -> Value.Pair(v1,v2,Value.comp sigma sigma')
-  |Value.Abstraction(iface,f,sigma') -> Value.Abstraction(iface,f,Value.comp sigma sigma')
+  |Value.Abstraction(Some iface,f,sigma') -> Value.Abstraction(Some iface,f,Value.comp sigma sigma')
   |Value.Xml(v1,v2,v3,sigma') -> Value.Xml(v1,v2,v3,Value.comp sigma sigma')
   |Value.XmlNs(v1,v2,v3,ns,sigma') -> Value.XmlNs(v1,v2,v3,ns,Value.comp sigma sigma')
   |Value.Record(m,sigma') -> Value.Record(m,Value.comp sigma sigma')

runtime/value.ml

@@ -17,7 +17,7 @@ and t =
   | Atom of Atoms.V.t
   | Integer of Intervals.V.t
   | Char of Chars.V.t
-  | Abstraction of (Types.descr * Types.descr) list option * (t -> t) * sigma
+  | Abstraction of iface option * (t -> t) * sigma
   | Abstract of Types.Abstracts.V.t
   | String_latin1 of int * int * string * t
   | String_utf8 of Utf8.uindex * Utf8.uindex * Utf8.t * t

runtime/value.mli

@@ -18,7 +18,7 @@ and t =
   | Atom of Atoms.V.t
   | Integer of Intervals.V.t
   | Char of Chars.V.t
-  | Abstraction of (Types.descr * Types.descr) list option * (t -> t) * sigma
+  | Abstraction of iface option * (t -> t) * sigma
   | Abstract of Types.Abstracts.V.t
   | String_latin1 of int * int * string * t
   | String_utf8 of Utf8.uindex * Utf8.uindex * Utf8.t * t