From 116ca3333cc918e6e064703e66e28b739168e235 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 19 Nov 2002 08:35:14 +0000
Subject: Autoriser les abbreviations de Cases

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

(limited to 'interp')

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