diff options
| author | Matthieu Sozeau | 2015-02-16 22:20:27 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-02-16 22:20:27 +0100 |
| commit | 8b55c34c46857932ea3cd8b209d0fd847ad913c7 (patch) | |
| tree | 3dfd266c4c1ca67613a6f5381018841c0fc3bc23 /pretyping | |
| parent | 86dd49a5a28eb71c0ce2cd2020e9f29ec4bd1f5a (diff) | |
Remove some dead code and add test-suite file.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/pretyping.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 040792ef53..e3dba232b2 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -324,12 +324,6 @@ let pretype_id pretype loc env evdref lvar id = (* Check if [id] is a section or goal variable *) try let (_,_,typ) = lookup_named id env in - (* let _ = *) - (* try *) - (* let ctx = Decls.variable_context id in *) - (* evdref := Evd.merge_context_set univ_rigid !evdref ctx; *) - (* with Not_found -> () *) - (* in *) { uj_val = mkVar id; uj_type = typ } with Not_found -> (* [id] not found, standard error message *) |