diff options
| author | filliatr | 1999-12-14 08:03:32 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-14 08:03:32 +0000 |
| commit | e3be8cdf7c4aa3882028d460267b136dcc36754a (patch) | |
| tree | 74eb38845328b51c81454487408b7bd3f40fe370 /dev/base_include | |
| parent | 0caaf60ee4e6e18fb9d4d36e9d1514914d3bc1ba (diff) | |
pretty-printers pour le debugger
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@251 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev/base_include')
| -rw-r--r-- | dev/base_include | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/dev/base_include b/dev/base_include index 8964873eb0..f314b35582 100644 --- a/dev/base_include +++ b/dev/base_include @@ -47,14 +47,17 @@ let raw_constr_of_string s = (parse_ast s);; let e s = - constr_of_com Evd.empty (Global.env()) (parse_ast s);; + Astterm.constr_of_com Evd.empty (Global.env()) (parse_ast s);; (* Get the current goal *) -let getgoal x = top_goal_of_pftreestate (get_pftreestate x);; +let getgoal x = top_goal_of_pftreestate (Pfedit.get_pftreestate x);; -let get_nth_goal n = nth_goal_of_pftreestate n (get_pftreestate ());; +let get_nth_goal n = nth_goal_of_pftreestate n (Pfedit.get_pftreestate ());; let current_goal () = get_nth_goal 1;; let pf_e gl s = - constr_of_com (project gl) (pf_env gl) (parse_ast s);; + Astterm.constr_of_com (project gl) (pf_env gl) (parse_ast s);; + +open Toplevel +let go = loop |