diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-05 11:24:36 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-05 11:24:36 +0000 |
| commit | fbad13370ba5a24423e9c0931a1e4524e53108f6 (patch) | |
| tree | 7144bb4aedaa27c21fd0571b0ca742949a7e2ddb /contrib/xml | |
| parent | d80d5efe805634790284a9780bb9330899e36108 (diff) | |
Constants just after a "Let id : t. ... Qed" local variable declaration were
exported as a copy of the variable id. Fixed.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5865 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml')
| -rw-r--r-- | contrib/xml/xmlcommand.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml index 814266468..7b7ebd1dc 100644 --- a/contrib/xml/xmlcommand.ml +++ b/contrib/xml/xmlcommand.ml @@ -604,7 +604,8 @@ let _ = Declare.set_xml_declare_variable (function (sp,kn) -> let id = Libnames.basename sp in - print false (Libnames.VarRef id) (kind_of_variable id) xml_library_root) + print false (Libnames.VarRef id) (kind_of_variable id) xml_library_root ; + proof_to_export := None) ;; let _ = |