diff options
| author | letouzey | 2002-03-19 14:20:42 +0000 |
|---|---|---|
| committer | letouzey | 2002-03-19 14:20:42 +0000 |
| commit | 5a29f44ac94af20780e41a1f3044b62668b558d3 (patch) | |
| tree | f18a06678b0fa663f9b1da6188d4144c50d56cab | |
| parent | 5ec8dbd9f25e07a6e087e99d01f8978d502f7ef4 (diff) | |
bug avec les MLglob vraiment constants
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2546 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/extraction.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index 74503ce923..489548a472 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -261,10 +261,12 @@ let prop_abstract f = (*s Abstraction of an constant. *) let abstract_constant sp s = - let f a = - if List.mem default s then MLapp (MLglob (ConstRef sp), a) - else MLapp (MLglob (ConstRef sp), [MLdummy]) - in prop_abstract f s + if s = [] then MLglob (ConstRef sp) + else + let f a = + if List.mem default s then MLapp (MLglob (ConstRef sp), a) + else MLapp (MLglob (ConstRef sp), [MLdummy]) + in prop_abstract f s (*S Error messages. *) |