diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:27:50 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:27:50 +0000 |
| commit | 6cf2f61e672f1a0aa6c06589d8b64c7958167a62 (patch) | |
| tree | d7a8d78e9a3bc865c1f100e1bc9b16d9a0c7d1a7 /plugins/quote | |
| parent | b4129423b95bafcb2f380fc7c1018e933724e7b3 (diff) | |
Quote: replaced generic = on constr by eq_constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14349 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/quote')
| -rw-r--r-- | plugins/quote/quote.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/quote/quote.ml b/plugins/quote/quote.ml index 41d92b233..a81392ad4 100644 --- a/plugins/quote/quote.ml +++ b/plugins/quote/quote.ml @@ -370,7 +370,7 @@ let rec subterm gl (t : constr) (t' : constr) = let rec sort_subterm gl l = let rec insert c = function | [] -> [c] - | (h::t as l) when c = h -> l (* Avoid doing the same work twice *) + | (h::t as l) when eq_constr c h -> l (* Avoid doing the same work twice *) | h::t -> if subterm gl c h then c::h::t else h::(insert c t) in match l with |