diff options
| author | herbelin | 2002-11-19 08:35:14 +0000 |
|---|---|---|
| committer | herbelin | 2002-11-19 08:35:14 +0000 |
| commit | 116ca3333cc918e6e064703e66e28b739168e235 (patch) | |
| tree | a07a526f3e4b43cd3d393a45e49e318aaf0b3eba /interp | |
| parent | b645fcd4c0b013de21a352aab7da3edaa52d3637 (diff) | |
Autoriser les abbreviations de Cases
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3257 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/topconstr.ml | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 628532d7b3..8d16602b5c 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -298,7 +298,6 @@ let map_constr_expr_with_binders f g e = function | CHole _ | CMeta _ | CSort _ | CNumeral _ | CDynamic _ | CRef _ as x -> x | CCases (loc,po,a,bl) -> (* TODO: apply g on the binding variables in pat... *) - (* hard because no syntactic diff between a constructor and a var *) let bl = List.map (fun (loc,pat,rhs) -> (loc,pat,f e rhs)) bl in CCases (loc,option_app (f e) po,List.map (f e) a,bl) | COrderedCase (loc,s,po,a,bl) -> |