diff options
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/base_include | 2 | ||||
| -rw-r--r-- | dev/db_printers.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/dev/base_include b/dev/base_include index 6b10dc5992..c75413a386 100644 --- a/dev/base_include +++ b/dev/base_include @@ -196,7 +196,7 @@ open Declareops;; let constbody_of_string s = let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_string s)) in - Option.get (body_of_constant b);; + Option.get (Declareops.body_of_constant b);; (* Get the current goal *) (* diff --git a/dev/db_printers.ml b/dev/db_printers.ml index 95e94c6d86..8e99c9dc72 100644 --- a/dev/db_printers.ml +++ b/dev/db_printers.ml @@ -11,6 +11,6 @@ open Names let pp s = pp (hov 0 s) let prid id = Format.print_string (Id.to_string id) -let prsp sp = Format.print_string (string_of_path sp) +let prsp sp = Format.print_string (DirPath.to_string sp) |