diff options
| author | letouzey | 2002-11-25 17:08:56 +0000 |
|---|---|---|
| committer | letouzey | 2002-11-25 17:08:56 +0000 |
| commit | bcaf24a705f7add2096d54a57cf174f8131c0287 (patch) | |
| tree | 74f54f1953416325995d5bc7d8b2f1bd147ba290 | |
| parent | c65747ba8e36672b7a4828f46e459ef920608acb (diff) | |
correction bug n°191
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3285 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/extraction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index 51ffc6bb43..6917b1380c 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -795,7 +795,7 @@ let extract_declaration r = match r with | ConstRef kn -> extract_constant_cache kn r | IndRef (kn,_) -> extract_inductive_declaration kn | ConstructRef ((kn,_),_) -> extract_inductive_declaration kn - | VarRef _ -> assert false + | VarRef kn -> error_section () (*s Check if a global reference corresponds to a logical inductive. *) |