diff options
| author | Matej Kosik | 2016-08-12 17:46:18 +0200 |
|---|---|---|
| committer | Matej Kosik | 2016-08-24 17:35:20 +0200 |
| commit | d5d80dfc0f773fd6381ee4efefc74804d103fe4e (patch) | |
| tree | 73be62f93b8716b5b69fadf705a91e106dadec17 /engine | |
| parent | f5f4bb97634f4fac3dec766db27af994e745d749 (diff) | |
CLEANUP: removing calls of the "Context.Named.Declaration.to_tuple" function
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/termops.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index a047bf53c7..7afd7a0385 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -983,7 +983,10 @@ let rec mem_named_context id ctxt = let compact_named_context_reverse sign = let compact l decl = - let (i1,c1,t1) = NamedDecl.to_tuple decl in + let (i1,c1,t1) = match decl with + | NamedDecl.LocalAssum (i,t) -> i,None,t + | NamedDecl.LocalDef (i,c,t) -> i,Some c,t + in match l with | [] -> [[i1],c1,t1] | (l2,c2,t2)::q -> |