diff options
| author | Matthieu Sozeau | 2014-10-15 16:55:09 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-10-15 16:55:09 +0200 |
| commit | 433431c073522b4251dda71b36da5b26f374d58e (patch) | |
| tree | f64ce5f410b24d4111217f6d9aae5fab89b8cea0 /dev | |
| parent | d03f927e1f2d066b8fdd1e156cb98a40f8dab89d (diff) | |
Fix ill-typed debugging function
Diffstat (limited to 'dev')
| -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 c2da8b18aa..7ec0bf4938 100644 --- a/dev/base_include +++ b/dev/base_include @@ -198,7 +198,7 @@ open Declareops;; let constbody_of_string s = let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_string s)) in - Option.get (Declareops.body_of_constant b);; + Option.get (Declareops.body_of_constant Opaqueproof.empty_opaquetab b);; (* Get the current goal *) (* |