diff options
| author | herbelin | 2011-06-12 22:27:20 +0000 |
|---|---|---|
| committer | herbelin | 2011-06-12 22:27:20 +0000 |
| commit | a38fbefca61f3392efe0ba98adfbae138022cce4 (patch) | |
| tree | 68d0caeb27b1b306a25243e8a6981ddd374b2fe5 /interp/constrextern.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/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 231bf22f29..91ae112855 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -778,7 +778,8 @@ and extern_symbol (tmp_scope,scopes as allscopes) vars t = function | _, None -> t, [], [], [] | _ -> raise No_match in (* Try matching ... *) - let terms,termlists,binders = match_aconstr t pat in + let terms,termlists,binders = + match_aconstr !print_universes t pat in (* Try availability of interpretation ... *) let e = match keyrule with |