From d3af4c289c9870337a141a0ffa98f9e01439d806 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 10 Jun 2005 13:42:47 +0000
Subject: [PATCH] More debugging infos.

---
 helm/ocaml/cic_disambiguation/disambiguate.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm/ocaml/cic_disambiguation/disambiguate.ml b/helm/ocaml/cic_disambiguation/disambiguate.ml
index b71e90885..2775aed3b 100644
--- a/helm/ocaml/cic_disambiguation/disambiguate.ml
+++ b/helm/ocaml/cic_disambiguation/disambiguate.ml
@@ -66,8 +66,8 @@ let refine metasenv context term ugraph =
 	CicRefine.type_of_aux' metasenv context term ugraph in
 	(Ok (term', metasenv')),ugraph1
     with
-      | CicRefine.Uncertain _ ->
-          debug_print ("UNCERTAIN!!! " ^ CicPp.ppterm term) ;
+      | CicRefine.Uncertain s ->
+          debug_print ("UNCERTAIN!!! [" ^ s ^ "] " ^ CicPp.ppterm term) ;
           Uncertain,ugraph
       | CicRefine.RefineFailure msg ->
           debug_print (sprintf "PRUNED!!!\nterm%s\nmessage:%s"
-- 
2.39.2