Commit bc4ad733 authored by Pietro Abate's avatar Pietro Abate

Minor change

parent e174dcd5
......@@ -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')
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment