diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-12 22:27:20 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-12 22:27:20 +0000 |
| commit | a38fbefca61f3392efe0ba98adfbae138022cce4 (patch) | |
| tree | 68d0caeb27b1b306a25243e8a6981ddd374b2fe5 /interp/reserve.ml | |
| parent | 8b6f6b1c4b60e74dccd5d8c49bdd433e19d53bf4 (diff) | |
Rather quick hack to avoid using notations involving "Type" when
Universes Printing is on. Code of Topconstr.match_ becomes a bit
cluttered, used abbreviation to shorten it (just) a little.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14189 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/reserve.ml')
| -rw-r--r-- | interp/reserve.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/reserve.ml b/interp/reserve.ml index 16d64edfc..ecceea3bb 100644 --- a/interp/reserve.ml +++ b/interp/reserve.ml @@ -79,7 +79,7 @@ let revert_reserved_type t = let t = Detyping.detype false [] [] t in list_try_find (fun (pat,id) -> - try let _ = match_aconstr t ([],pat) in Name id + try let _ = match_aconstr false t ([],pat) in Name id with No_match -> failwith "") l with Not_found | Failure _ -> Anonymous |