From 32747e53e9cfad90a30d07ebd7a328ad0a6e58d9 Mon Sep 17 00:00:00 2001 From: herbelin Date: Tue, 7 Nov 2000 12:49:00 +0000 Subject: Nettoyage Names suite git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@818 85f007b7-540e-0410-9357-904b9bb8a0f7 --- contrib/omega/coq_omega.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'contrib') diff --git a/contrib/omega/coq_omega.ml b/contrib/omega/coq_omega.ml index 06c404aef..ca241ecd2 100644 --- a/contrib/omega/coq_omega.ml +++ b/contrib/omega/coq_omega.ml @@ -48,7 +48,7 @@ let new_identifier = let new_identifier_state = let cpt = ref 0 in - (fun () -> let s = make_ident "State" !cpt in incr cpt; s) + (fun () -> let s = make_ident "State" (Some !cpt) in incr cpt; s) let new_identifier_var = let cpt = ref 0 in -- cgit v1.2.3