diff options
author | 2006-10-09 16:11:01 +0000 | |
---|---|---|
committer | 2006-10-09 16:11:01 +0000 | |
commit | 366fa1bdea12b522c98984f50428ef8aa48cf8d0 (patch) | |
tree | 4d0683375ec32d681e1e6e5e4788654d8281b2b1 /contrib/interface/dad.ml | |
parent | c03b138c8c5e85ca1636465582c3242f50415a73 (diff) |
Notations:
- prise en compte des variables liées non liées par la notation (bug #1186),
- test pour affichage des notations aussi sur les sous-ensembles
des lieurs multiples (cf notation "#" dans output/Notations.v),
- extension, correction et uniformisation de quelques fonctions sur
les constr_expr et cases_pattern (avec incidences sur rawterm.ml,
parsing et contrib/interface).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9226 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/dad.ml')
-rw-r--r-- | contrib/interface/dad.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/dad.ml b/contrib/interface/dad.ml index 578abc490..8096bc311 100644 --- a/contrib/interface/dad.ml +++ b/contrib/interface/dad.ml @@ -73,7 +73,7 @@ let rec map_subst (env :env) (subst:patvar_map) = function | CPatVar (_,(_,i)) -> let constr = List.assoc i subst in extern_constr false env constr - | x -> map_constr_expr_with_binders (map_subst env) (fun _ x -> x) subst x;; + | x -> map_constr_expr_with_binders (fun _ x -> x) (map_subst env) subst x;; let map_subst_tactic env subst = function | TacExtend (loc,("Rewrite" as x),[b;cbl]) -> |