diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-12-19 14:11:52 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-12-19 14:11:52 +0100 |
commit | e4336097383a1acece35862eb2966ff6b7573eb9 (patch) | |
tree | 4219ca89a878d8c8fa34c7646cb32aa242372a4a /checker/check.ml | |
parent | ab7d96a1d7c1bd44cf3bca5f593b947975117ed8 (diff) |
Fix sigsegv in checker
Diffstat (limited to 'checker/check.ml')
-rw-r--r-- | checker/check.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/checker/check.ml b/checker/check.ml index 668ee3705..1f84b56b5 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -355,7 +355,9 @@ let intern_from_file (dir, f) = LibraryMap.add md.md_name opaque_csts !opaque_univ_tables) opaque_csts; let extra_cst = - Option.default Univ.empty_constraint (Option.map pi2 opaque_csts) in + Option.default Univ.empty_constraint + (Option.map (fun (_,cs,_) -> + Univ.ContextSet.constraints cs) opaque_csts) in mk_library md f table digest extra_cst let get_deps (dir, f) = |