diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-07 12:49:00 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-07 12:49:00 +0000 |
| commit | 32747e53e9cfad90a30d07ebd7a328ad0a6e58d9 (patch) | |
| tree | 5b6163567e187cc1de98659d1d15257bf17fdb00 /contrib/omega | |
| parent | 3d4a44bb4a30da00bc70072b36b70571168e6a8d (diff) | |
Nettoyage Names suite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@818 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/omega')
| -rw-r--r-- | contrib/omega/coq_omega.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |