diff options
| author | jforest | 2007-01-26 10:04:02 +0000 |
|---|---|---|
| committer | jforest | 2007-01-26 10:04:02 +0000 |
| commit | b62e40ef660836b42fe2a58a864d7e50f3bf5504 (patch) | |
| tree | a761e1dcbeede5cdb4d10b6d55898037842455a5 /pretyping/detyping.ml | |
| parent | 25f472a9b7a5b9638357924aca635b5cc82b66f4 (diff) | |
correction d'un bug d'efficacite dans le printer
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9536 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/detyping.ml')
| -rw-r--r-- | pretyping/detyping.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 8de9e2abe7..04665e2825 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -288,8 +288,10 @@ let it_destRLambda_or_LetIn_names n c = let rec next l = let x = Nameops.next_ident_away (id_of_string "x") l in (* Not efficient but unusual and no function to get free rawvars *) - if occur_rawconstr x c then next (x::l) else x in - let x = next [] in +(* if occur_rawconstr x c then next (x::l) else x in *) + x + in + let x = next (free_rawvars c) in let a = RVar (dl,x) in aux (n-1) (Name x :: nal) (match c with |