diff options
| author | herbelin | 2003-09-30 15:13:13 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-30 15:13:13 +0000 |
| commit | a59062b279c3d173570731cafc2b5ec18c80e93a (patch) | |
| tree | 7892a11aa91958b6f2a17bfce1f2ea0c921271dc | |
| parent | b483429713477413e7432856e862aa69ca644724 (diff) | |
code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4504 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/topconstr.ml | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 1a9a66270b..9b2554cfbd 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -371,19 +371,6 @@ type scope_name = string type interpretation = (identifier * (scope_name option * scope_name list)) list * aconstr -(* -let match_aconstr sc c (metas_scl,pat) = - let subst = match_ sc [] (List.map fst metas_scl) [] c pat in - (* Reorder canonically the substitution *) - let find x subst = - try List.assoc x subst - with Not_found -> - (* Happens for binders bound to Anonymous *) - (* Find a better way to propagate Anonymous... *) - RVar (dummy_loc,x),None in - List.map (fun (x,scl) -> let (a,sc) = find x subst in (a,sc,scl)) metas_scl -*) - let match_aconstr c (metas_scl,pat) = let subst = match_ [] (List.map fst metas_scl) [] c pat in (* Reorder canonically the substitution *) |