diff options
| author | filliatr | 1999-11-29 12:57:35 +0000 |
|---|---|---|
| committer | filliatr | 1999-11-29 12:57:35 +0000 |
| commit | 5094f4879cf86d7cbc5879d3acd9216ea2615f87 (patch) | |
| tree | 6434518a71398ca4b52315102f4c65abbfc74032 /pretyping | |
| parent | 2a49a1239b1e69fa0eb5695166fe9808c9774314 (diff) | |
portage Astterm (partiellement)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@159 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rwxr-xr-x | pretyping/classops.ml | 5 | ||||
| -rw-r--r-- | pretyping/rawterm.mli | 2 | ||||
| -rwxr-xr-x | pretyping/recordops.ml | 9 |
3 files changed, 11 insertions, 5 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index f69253eea8..533d1f3c1b 100755 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -148,7 +148,10 @@ let (inClass,outClass) = specification_function = (function x -> x) }) let add_new_class (cl,s,stre,p) = - Lib.add_anonymous_leaf (inClass ((cl,{cL_STR=s;cL_STRE=stre;cL_PARAM=p}))) + let _ = + Lib.add_anonymous_leaf (inClass ((cl,{cL_STR=s;cL_STRE=stre;cL_PARAM=p}))) + in + () let _ = Summary.declare_summary "inh_graph" diff --git a/pretyping/rawterm.mli b/pretyping/rawterm.mli index 0ee1e04349..f2df08842d 100644 --- a/pretyping/rawterm.mli +++ b/pretyping/rawterm.mli @@ -29,7 +29,7 @@ type reference = | RConstruct of constructor_id * identifier list | RAbst of section_path | RVar of identifier - | REVar of section_path * identifier list + | REVar of int * identifier list | RMeta of int type cases_style = PrintLet | PrintIf | PrintCases diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index dea95d0e04..590eff02b2 100755 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -44,7 +44,9 @@ let (inStruc,outStruc) = specification_function = (function x -> x) }) let add_new_struc (s,c,n,l) = - Lib.add_anonymous_leaf (inStruc (s,{s_CONST=c;s_PARAM=n;s_PROJ=l})) + let _ = + Lib.add_anonymous_leaf (inStruc (s,{s_CONST=c;s_PARAM=n;s_PROJ=l})) in + () let struc_info s = List.assoc s !sTRUCS @@ -81,8 +83,9 @@ let add_new_objdef (o,c,la,lp,l) = try let _ = List.assoc o !oBJDEFS in () with Not_found -> - Lib.add_anonymous_leaf - (inObjDef (o,{o_DEF=c;o_TABS=la;o_TPARAMS=lp;o_TCOMPS=l})) + let _ = Lib.add_anonymous_leaf + (inObjDef (o,{o_DEF=c;o_TABS=la;o_TPARAMS=lp;o_TCOMPS=l})) in + () let ((inObjDef1:section_path -> obj),(outObjDef1:obj -> section_path)) = declare_object ("OBJDEF1", |