diff options
author | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-12-07 21:50:00 +0000 |
---|---|---|
committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-12-07 21:50:00 +0000 |
commit | 47c78072c71b34c4c5469736367234f43203e7c9 (patch) | |
tree | d7338cce5a19fd84531b017f20bd613e460855f7 /dev | |
parent | d619f795a7ffcd46ae6d3eea022f9520cc72ad3d (diff) |
Ocaml toplevel convenience.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10355 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
-rw-r--r-- | dev/base_include | 2 | ||||
-rw-r--r-- | dev/include | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/dev/base_include b/dev/base_include index 829c5ea61..792330726 100644 --- a/dev/base_include +++ b/dev/base_include @@ -169,7 +169,7 @@ open Declarations;; let constbody_of_string s = let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_sp (path_of_string s))) in - Util.out_some b.const_body;; + Option.get b.const_body;; (* Get the current goal *) diff --git a/dev/include b/dev/include index 1fc82be83..7d0bfdca5 100644 --- a/dev/include +++ b/dev/include @@ -1,6 +1,8 @@ (* File to include to install the pretty-printers in the ocaml toplevel *) +(* clflags.cmi (a ocaml compilation by-product) must be in the library path *) +Clflags.recursive_types := true;; #cd ".";; #use "base_include";; @@ -17,7 +19,7 @@ #install_printer (* goal *) ppgoal;; #install_printer (* sigma goal *) ppsigmagoal;; #install_printer (* proof *) pproof;; -#install_printer (* metaset.t *) ppmeta;; +#install_printer (* metaset.t *) ppmetas;; #install_printer (* evar_map *) ppevm;; #install_printer (* evar_defs *) ppevd;; #install_printer (* clenv *) ppclenv;; |