diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-15 16:55:09 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-15 16:55:09 +0200 |
commit | 433431c073522b4251dda71b36da5b26f374d58e (patch) | |
tree | f64ce5f410b24d4111217f6d9aae5fab89b8cea0 /dev/base_include | |
parent | d03f927e1f2d066b8fdd1e156cb98a40f8dab89d (diff) |
Fix ill-typed debugging function
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 c2da8b18a..7ec0bf493 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 *) (* |