From 55400b02a70c540d6c6e8152affe1eae99760b91 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 6 Jun 2019 16:52:23 +0200
Subject: Tentatively providing a localization function to ad-hoc camlp5
 parsers.

---
 user-contrib/Ltac2/g_ltac2.mlg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'user-contrib')

diff --git a/user-contrib/Ltac2/g_ltac2.mlg b/user-contrib/Ltac2/g_ltac2.mlg
index 23b5f4daef..e0e660b984 100644
--- a/user-contrib/Ltac2/g_ltac2.mlg
+++ b/user-contrib/Ltac2/g_ltac2.mlg
@@ -26,7 +26,7 @@ let err () = raise Stream.Failure
 type lookahead = int -> Tok.t Stream.t -> int option
 
 let entry_of_lookahead s (lk : lookahead) =
-  let run strm = match lk 0 strm with None -> err () | Some _ -> () in
+  let run _ strm = match lk 0 strm with None -> err () | Some _ -> () in
   Pcoq.Entry.of_parser s run
 
 let (>>) (lk1 : lookahead) lk2 n strm = match lk1 n strm with
-- 
cgit v1.2.3