diff options
-rw-r--r-- | contrib/funind/functional_principles_types.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |