From 61948e2e9b31460eb6a0bbd627c90a6549d65414 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Wed, 30 Sep 2009 08:18:31 +0000 Subject: [PATCH] The term contains dummy.conv that was searched over the net. --- helm/software/components/ng_refiner/nCicUnifHint.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/helm/software/components/ng_refiner/nCicUnifHint.ml b/helm/software/components/ng_refiner/nCicUnifHint.ml index bdd5b080b..a17d7e8a6 100644 --- a/helm/software/components/ng_refiner/nCicUnifHint.ml +++ b/helm/software/components/ng_refiner/nCicUnifHint.ml @@ -342,11 +342,11 @@ let generate_dot_file status fmt = (NCicPp.ppterm ~margin:max_int ~metasenv:[] ~context:[] ~subst:[] r) in - let hint = + let hint = "???" (* string_of_int precedence ^ "..." ^ Str.global_substitute (Str.regexp "\n") (fun _ -> "") (NCicPp.ppterm - ~margin:max_int ~metasenv:[] ~context:[] ~subst:[] hint) + ~margin:max_int ~metasenv:[] ~context:[] ~subst:[] hint)*) in nodes := (mangle l,l) :: (mangle r,r) :: !nodes; edges := (mangle l, mangle r, hint) :: !edges) -- 2.39.2