diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-03 16:04:21 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-03 16:04:21 +0000 |
| commit | 436ed028434916e58f697593834cbfcc220f8c13 (patch) | |
| tree | 5d2b58e2e91564203ab27229645367ba1666c31c /contrib/extraction/common.ml | |
| parent | 80b8609c3b3aca8ac5b8af145b12956a41ab78f9 (diff) | |
la table PARAMETER n'existe plus (mergé dans la table CONSTANT)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3369 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/common.ml')
| -rw-r--r-- | contrib/extraction/common.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/common.ml b/contrib/extraction/common.ml index 811591bd8..5d82bad51 100644 --- a/contrib/extraction/common.ml +++ b/contrib/extraction/common.ml @@ -106,7 +106,7 @@ let extract_module m = let get_reference = function | (_,kn), Leaf o -> (match Libobject.object_tag o with - | "CONSTANT" | "PARAMETER" -> ConstRef kn + | "CONSTANT" -> ConstRef kn | "INDUCTIVE" -> IndRef (kn,0) | _ -> failwith "caught") | _ -> failwith "caught" |