From c85ee5577d9ee20a9a91c338ece3c1c0685874b7 Mon Sep 17 00:00:00 2001
From: delahaye
Date: Thu, 17 Aug 2000 16:15:07 +0000
Subject: Pattern matching de sous-termes

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

(limited to 'kernel')

diff --git a/kernel/term.ml b/kernel/term.ml
index 6b3aa5becc..f4c074471a 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -1316,6 +1316,7 @@ let rec subst_meta bl c =
     | DOP1(op,c') -> DOP1(op, subst_meta bl c')
     | DOP2(op,c'1, c'2) -> DOP2(op, subst_meta bl c'1, subst_meta bl c'2)
     | DOPN(op, c') -> DOPN(op, Array.map (subst_meta bl) c')
+    | DLAM(x,c') -> DLAM(x, subst_meta bl c')
     | _ -> c
 
 (* Substitute only a list of locations locs, the empty list is
-- 
cgit v1.2.3