+++ /dev/null
-From: Stephane Glondu <steph@glondu.net>
-Date: Wed, 24 Jul 2019 10:05:12 +0200
-Subject: Fix spelling errors reported by Lintian
-
-Forwarded: https://github.com/ocaml/ocaml/pull/8826
----
- asmcomp/cmmgen.ml | 2 +-
- manual/manual/library/compilerlibs.etex | 2 +-
- middle_end/inlining_transforms.ml | 2 +-
- otherlibs/systhreads/event.mli | 2 +-
- parsing/ast_iterator.mli | 2 +-
- parsing/ast_mapper.mli | 2 +-
- stdlib/bigarray.mli | 2 +-
- stdlib/filename.mli | 2 +-
- stdlib/format.ml | 2 +-
- testsuite/tests/parsetree/source.ml | 2 +-
- testsuite/tests/typing-implicit_unpack/implicit_unpack.ml | 2 +-
- 11 files changed, 11 insertions(+), 11 deletions(-)
-
-diff --git a/asmcomp/cmmgen.ml b/asmcomp/cmmgen.ml
-index d049099..24b1305 100644
---- a/asmcomp/cmmgen.ml
-+++ b/asmcomp/cmmgen.ml
-@@ -1528,7 +1528,7 @@ end
- phases, we only share exits *)
- (* Some specific patterns can lead to switches where several cases
- point to the same action, but this action is not an exit (see GPR#1370).
-- The addition of the index in the action array as context allows to
-+ The addition of the index in the action array as context allows one to
- share them correctly without duplication. *)
- module StoreExpForSwitch =
- Switch.CtxStore
-diff --git a/manual/manual/library/compilerlibs.etex b/manual/manual/library/compilerlibs.etex
-index 88abbb8..d491937 100644
---- a/manual/manual/library/compilerlibs.etex
-+++ b/manual/manual/library/compilerlibs.etex
-@@ -3,7 +3,7 @@
-
- This chapter describes the OCaml front-end, which declares the abstract
- syntax tree used by the compiler, provides a way to parse, print
--and pretty-print OCaml code, and ultimately allows to write abstract
-+and pretty-print OCaml code, and ultimately allows one to write abstract
- syntax tree preprocessors invoked via the {\tt -ppx} flag (see chapters~\ref{c:camlc}
- and~\ref{c:nativecomp}) and plugins invoked via the {\tt -plugin} flag
- (see chapter~\ref{c:plugins}).
-diff --git a/middle_end/inlining_transforms.ml b/middle_end/inlining_transforms.ml
-index b08e62b..fb31580 100755
---- a/middle_end/inlining_transforms.ml
-+++ b/middle_end/inlining_transforms.ml
-@@ -118,7 +118,7 @@ let inline_by_copying_function_body ~env ~r
- && ((not default_inline) || (not default_specialise)) then
- (* When the function inlined function is a stub, the annotation
- is reported to the function applications inside the stub.
-- This allows to report the annotation to the application the
-+ This allows one to report the annotation to the application the
- original programmer really intended: the stub is not visible
- in the source. *)
- set_inline_attribute_on_all_apply body
-diff --git a/otherlibs/systhreads/event.mli b/otherlibs/systhreads/event.mli
-index 83dbe9a..a69110f 100644
---- a/otherlibs/systhreads/event.mli
-+++ b/otherlibs/systhreads/event.mli
-@@ -59,7 +59,7 @@ val wrap_abort : 'a event -> (unit -> unit) -> 'a event
-
- val guard : (unit -> 'a event) -> 'a event
- (** [guard fn] returns the event that, when synchronized, computes
-- [fn()] and behaves as the resulting event. This allows to
-+ [fn()] and behaves as the resulting event. This allows one to
- compute events with side-effects at the time of the synchronization
- operation. *)
-
-diff --git a/parsing/ast_iterator.mli b/parsing/ast_iterator.mli
-index 5dc1c0e..480d854 100755
---- a/parsing/ast_iterator.mli
-+++ b/parsing/ast_iterator.mli
-@@ -13,7 +13,7 @@
- (* *)
- (**************************************************************************)
-
--(** {!iterator} allows to implement AST inspection using open recursion. A
-+(** {!iterator} allows one to implement AST inspection using open recursion. A
- typical mapper would be based on {!default_iterator}, a trivial iterator,
- and will fall back on it for handling the syntax it does not modify.
-
-diff --git a/parsing/ast_mapper.mli b/parsing/ast_mapper.mli
-index b342ca8..a517504 100644
---- a/parsing/ast_mapper.mli
-+++ b/parsing/ast_mapper.mli
-@@ -21,7 +21,7 @@
- the -ppx rewriters, handling such details as the serialization format,
- forwarding of command-line flags, and storing state.
-
-- {!mapper} allows to implement AST rewriting using open recursion.
-+ {!mapper} allows one to implement AST rewriting using open recursion.
- A typical mapper would be based on {!default_mapper}, a deep
- identity mapper, and will fall back on it for handling the syntax it
- does not modify. For example:
-diff --git a/stdlib/bigarray.mli b/stdlib/bigarray.mli
-index 2c12612..317c1db 100644
---- a/stdlib/bigarray.mli
-+++ b/stdlib/bigarray.mli
-@@ -133,7 +133,7 @@ type ('a, 'b) kind =
- of OCaml types with element kinds, and are re-exported below for
- backward-compatibility reasons.
-
-- Using a generalized algebraic datatype (GADT) here allows to write
-+ Using a generalized algebraic datatype (GADT) here allows one to write
- well-typed polymorphic functions whose return type depend on the
- argument type, such as:
-
-diff --git a/stdlib/filename.mli b/stdlib/filename.mli
-index b05ad0d..cc018b4 100644
---- a/stdlib/filename.mli
-+++ b/stdlib/filename.mli
-@@ -52,7 +52,7 @@ val check_suffix : string -> string -> bool
- val chop_suffix : string -> string -> string
- (** [chop_suffix name suff] removes the suffix [suff] from
- the filename [name]. The behavior is undefined if [name] does not
-- end with the suffix [suff]. It is thus recommmended to use
-+ end with the suffix [suff]. It is thus recommended to use
- [chop_suffix_opt] instead.
- *)
-
-diff --git a/stdlib/format.ml b/stdlib/format.ml
-index ae1f3c6..438c661 100644
---- a/stdlib/format.ml
-+++ b/stdlib/format.ml
-@@ -687,7 +687,7 @@ let pp_print_if_newline state () =
- { size = Size.zero; token = Pp_if_newline; length = 0 }
-
-
--(* Generalized break hint that allows to print strings before/after
-+(* Generalized break hint that allows one to print strings before/after
- same-line offset (width) or new-line offset *)
- let pp_print_custom_break state ~fits ~breaks =
- let before, width, after = fits in
-diff --git a/testsuite/tests/parsetree/source.ml b/testsuite/tests/parsetree/source.ml
-index c67012e..7d9da5f 100644
---- a/testsuite/tests/parsetree/source.ml
-+++ b/testsuite/tests/parsetree/source.ml
-@@ -3072,7 +3072,7 @@ Error: Types marked with the immediate attribute must be
- non-pointer types like int or bool
- |}];;
- (*
-- Implicit unpack allows to omit the signature in (val ...) expressions.
-+ Implicit unpack allows one to omit the signature in (val ...) expressions.
-
- It also adds (module M : S) and (module M) patterns, relying on
- implicit (val ...) for the implementation. Such patterns can only
-diff --git a/testsuite/tests/typing-implicit_unpack/implicit_unpack.ml b/testsuite/tests/typing-implicit_unpack/implicit_unpack.ml
-index a6b4d69..9227800 100644
---- a/testsuite/tests/typing-implicit_unpack/implicit_unpack.ml
-+++ b/testsuite/tests/typing-implicit_unpack/implicit_unpack.ml
-@@ -3,7 +3,7 @@
- *)
-
- (*
-- Implicit unpack allows to omit the signature in (val ...) expressions.
-+ Implicit unpack allows one to omit the signature in (val ...) expressions.
-
- It also adds (module M : S) and (module M) patterns, relying on
- implicit (val ...) for the implementation. Such patterns can only
projects / ocaml.git / commitdiff