From 3ce18d88c5d172340050c6603c14835a3a8530b7 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Fri, 23 Jul 2010 15:38:34 -0700
Subject: [PATCH] Another quick fix from jmuizelaar for that "some ocaml
 versions dont't notice wrong wildcard count in patterns" bug.

---
 src/boot/me/type.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml
index 7943e88bb80..2e647eb752d 100644
--- a/src/boot/me/type.ml
+++ b/src/boot/me/type.ml
@@ -654,7 +654,7 @@ let check_stmt (cx:Semant.ctxt) : (fn_ctx -> Ast.stmt -> unit) =
       fn_ctx.fnctx_just_saw_ret <-
         match stmt.Common.node with
             Ast.STMT_ret _ | Ast.STMT_be _ | Ast.STMT_fail
-          | Ast.STMT_yield _ -> true
+          | Ast.STMT_yield -> true
           | _ -> false
     in
 
-- 
GitLab