From 82312ad28ea14203cbfae9a7f69d2b8ab23c6b9f Mon Sep 17 00:00:00 2001
From: Jason Gross
Date: Tue, 12 Aug 2014 09:02:51 -0400
Subject: Grammar: "avoiding to" isn't proper, either

---
 pretyping/reductionops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping')

diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml
index 260a012aad..383066405c 100644
--- a/pretyping/reductionops.ml
+++ b/pretyping/reductionops.ml
@@ -110,7 +110,7 @@ module ReductionBehaviour = struct
        let never = List.mem `ReductionNeverUnfold flags in
        let nomatch = List.mem `ReductionDontExposeCase flags in
        let pp_nomatch = spc() ++ if nomatch then
-				   str "avoiding to expose match constructs" else str"" in
+				   str "but avoid exposing match constructs" else str"" in
        let pp_recargs = spc() ++ str "when the " ++
 			  pr_enum (fun x -> pr_nth (x+1)) recargs ++ str (String.plural (List.length recargs) " argument") ++
 			  str (String.plural (if List.length recargs >= 2 then 1 else 2) " evaluate") ++
-- 
cgit v1.2.3