diff options
| author | msozeau | 2013-02-27 16:28:33 +0000 |
|---|---|---|
| committer | msozeau | 2013-02-27 16:28:33 +0000 |
| commit | a10419ad28f22e1d197bf51181b792c050e5f53e (patch) | |
| tree | 9763b0a229d363f7ef14d9185512a5ab6885ee2d /dev | |
| parent | b3e1879a09c3623c7a04858a7421b316abd65293 (diff) | |
Update debug code according to reorganization into modules.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16254 85f007b7-540e-0410-9357-904b9bb8a0f7
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) |