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/classops.ml | |
| 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/classops.ml')
| -rwxr-xr-x | pretyping/classops.ml | 5 |
1 files changed, 4 insertions, 1 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" |