diff options
| -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. *) |