From ad9b938817dc53f03a1e1af0b81ec372294d3450 Mon Sep 17 00:00:00 2001 From: jforest Date: Tue, 6 Jun 2006 16:12:54 +0000 Subject: this time it's good git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8904 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/funind/functional_principles_types.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/funind/functional_principles_types.ml b/contrib/funind/functional_principles_types.ml index 00009d74e..8ef132648 100644 --- a/contrib/funind/functional_principles_types.ml +++ b/contrib/funind/functional_principles_types.ml @@ -453,7 +453,7 @@ let make_scheme fas = (fun (_,f,_) -> try id_to_constr f with Not_found -> - Util.error ("Cannot find "^ string_of_id id) + Util.error ("Cannot find "^ string_of_id f) ) fas in -- cgit v1.2.3