diff options
| author | letouzey | 2012-05-29 11:08:44 +0000 |
|---|---|---|
| committer | letouzey | 2012-05-29 11:08:44 +0000 |
| commit | a936f2e879ac1f9b2e7e9d8a5376469e3d53c606 (patch) | |
| tree | 7f0972729eb41828ad9abbaf0dc61ce2366ef870 /interp/constrextern.ml | |
| parent | b31b48407a9f5d36cefd6dec3ddf3e0b8391f14c (diff) | |
Glob_term now mli-only, operations now in Glob_ops
Stuff about reductions now in genredexpr.mli, operations in redops.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15374 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 d45e6b9b37..62b8cdcea8 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -23,6 +23,7 @@ open Libnames open Impargs open Topconstr open Glob_term +open Glob_ops open Pattern open Nametab open Notation @@ -876,7 +877,7 @@ and extern_eqn inctx scopes vars (loc,ids,pl,c) = and extern_symbol (tmp_scope,scopes as allscopes) vars t = function | [] -> raise No_match | (keyrule,pat,n as _rule)::rules -> - let loc = Glob_term.loc_of_glob_constr t in + let loc = Glob_ops.loc_of_glob_constr t in try (* Adjusts to the number of arguments expected by the notation *) let (t,args,argsscopes,argsimpls) = match t,n with |