Another quick fix from jmuizelaar for that "some ocaml versions dont't notice wrong wildcard count in patterns" bug.

2010-07-23 15:38:34 -07:00 · 2010-07-23 15:38:34 -07:00 · 3ce18d88c5
commit 3ce18d88c5
parent 44e2dc2789
1 changed files with 1 additions and 1 deletions
--- 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