From 77d4f18ce657800ebd85530c510521b467d7c3dd Mon Sep 17 00:00:00 2001
From: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Date: Wed, 8 Dec 1999 08:21:57 +0000
Subject: changed label_pattern syntax

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2677 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 stdlib/parsing.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/parsing.ml')

diff --git a/stdlib/parsing.ml b/stdlib/parsing.ml
index 96eaa5da3..87270e846 100644
--- a/stdlib/parsing.ml
+++ b/stdlib/parsing.ml
@@ -114,7 +114,7 @@ let clear_parser() =
   Array.fill env.v_stack 0 env.stacksize (Obj.repr ());
   env.lval <- Obj.repr ()
 
-let current_lookahead_fun = ref (fun (x: Obj.t) -> false)
+let current_lookahead_fun = ref (fun (x : Obj.t) -> false)
 
 let yyparse tables start lexer lexbuf =
   let rec loop cmd arg =
@@ -187,4 +187,4 @@ let rhs_end n =
 let is_current_lookahead tok =
   (!current_lookahead_fun)(Obj.repr tok)
 
-let parse_error (msg: string) = ()
+let parse_error (msg : string) = ()
-- 
cgit v1.2.3-70-g09d2