some makefile work

[helm.git] / helm / ocaml / cic_proof_checking / freshNamesGenerator.ml

diff --git a/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml b/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml
index 58ff7f96efebf0a0c7de7fcf7d230be6640e9c0d..99c9e4d76c9d93f51e070fce5aca31487c6099af 100755 (executable)
--- a/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml
+++ b/helm/ocaml/cic_proof_checking/freshNamesGenerator.ml
@@ -23,6 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
+(* $Id$ *)
+
 let debug_print = fun _ -> ()
 
 let rec higher_name arity =
@@ -256,7 +258,7 @@ let clean_dummy_dependent_types t =
             C.Anonymous ->
              if List.mem k rels2 then
 (
-              debug_print "If this happens often, we can do something about it (i.e. we can generate a new fresh name; problem: we need the metasenv and context ;-(. Alternative solution: mk_implicit does not generate entries for the elements in the context that have no name" ;
+              debug_print (lazy "If this happens often, we can do something about it (i.e. we can generate a new fresh name; problem: we need the metasenv and context ;-(. Alternative solution: mk_implicit does not generate entries for the elements in the context that have no name") ;
               C.Anonymous
 )
              else