From a59062b279c3d173570731cafc2b5ec18c80e93a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 30 Sep 2003 15:13:13 +0000
Subject: code mort

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4504 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/topconstr.ml | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'interp')

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 *)
-- 
cgit v1.2.3