diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-06 16:48:55 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-06 16:48:55 +0000 |
| commit | bb774b704c45ee182669e133115ea606d595a004 (patch) | |
| tree | 0ed6b3f1d00676b6f030a07cc9bf097f17f13bfb /dev/base_include | |
| parent | bdac8f996a89701f74a5fcb649ec12bc3aaa9d07 (diff) | |
Fix dev/base_include after change of constant_body
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13958 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev/base_include')
| -rw-r--r-- | dev/base_include | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dev/base_include b/dev/base_include index 18c5c324a..5d5e9e1dc 100644 --- a/dev/base_include +++ b/dev/base_include @@ -189,7 +189,7 @@ open Declarations;; let constbody_of_string s = let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_string s)) in - Option.get b.const_body;; + Option.get (body_of_constant b);; (* Get the current goal *) (* |