diff options
| author | ppedrot | 2012-09-25 16:58:32 +0000 |
|---|---|---|
| committer | ppedrot | 2012-09-25 16:58:32 +0000 |
| commit | ae8114a13c48e866c89c165560d34fa862e4ff99 (patch) | |
| tree | 50d282f6d7b87712236cb35010a2fb2c24292146 | |
| parent | a9e25d7cea5d3b85600a43c4a0bf8ead5ecb724e (diff) | |
Fixing ocamldoc errors
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15833 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | kernel/mod_subst.ml | 2 | ||||
| -rw-r--r-- | kernel/names.ml | 2 | ||||
| -rw-r--r-- | lib/cArray.mli | 2 | ||||
| -rw-r--r-- | lib/cObj.mli | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index 61dc2bf290..5ba4a9789b 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -123,7 +123,7 @@ let add_kn_delta_resolver kn kn' = Deltamap.add_kn kn (Equiv kn') let add_mp_delta_resolver mp1 mp2 = Deltamap.add_mp mp1 mp2 -(** Extending a [substitution *) +(** Extending a [substitution] *) let add_mbid mbid mp resolve s = Umap.add_mbi mbid (mp,resolve) s let add_mp mp1 mp2 resolve s = Umap.add_mp mp1 (mp2,resolve) s diff --git a/kernel/names.ml b/kernel/names.ml index 599e8fb126..6146e10839 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -218,7 +218,7 @@ module KNset = Set.Make(KNord) (i.e. what the user see) and kn2 corresponds to the canonical kernel name i.e. in the environment we have - kn1 \rhd_{\delta}^* kn2 \rhd_{\delta} t *) + {% kn1 \rhd_{\delta}^* kn2 \rhd_{\delta} t %} *) type constant = kernel_name*kernel_name let constant_of_kn kn = (kn,kn) diff --git a/lib/cArray.mli b/lib/cArray.mli index 1738bb6184..57eb672c14 100644 --- a/lib/cArray.mli +++ b/lib/cArray.mli @@ -109,7 +109,7 @@ sig (** As [map] but guaranteed to be left-to-right. *) val iter2 : ('a -> 'b -> unit) -> 'a array -> 'b array -> unit - (** Iter on two arrays. Raise [Invalid_argument "Array.iter2" if sizes differ. *) + (** Iter on two arrays. Raise [Invalid_argument "Array.iter2"] if sizes differ. *) val fold_map' : ('a -> 'c -> 'b * 'c) -> 'a array -> 'c -> 'b array * 'c val fold_map : ('a -> 'b -> 'a * 'c) -> 'a -> 'b array -> 'a * 'c array diff --git a/lib/cObj.mli b/lib/cObj.mli index 61c778f1fd..3264ca61f3 100644 --- a/lib/cObj.mli +++ b/lib/cObj.mli @@ -19,7 +19,7 @@ val size_b : 'a -> int val size_kb : 'a -> int (** Same as [size] in kilobytes. *) -(** {6 Logical size of an OCaml value *) +(** {6 Logical size of an OCaml value.} *) val obj_stats : 'a -> int * int * int (** Return the (logical) value size, the string size, and the maximum depth of |