Original bug ID: 4331
Reporter: @yallop
Assigned to: ertai
Status: closed (set by @xavierleroy on 2010-04-29T12:26:07Z)
Resolution: fixed
Priority: normal
Severity: minor
Version: 3.10.0
Fixed in version: 3.10+dev
Category: -for Camlp4 use https://github.com/ocaml/camlp4/issues
Monitored by: @yallop

Bug description

Here's the problem:

$ cat test.ml
let _ = fun x when x > 3 -> 2

$ ocamlc test.ml
File "test.ml", line 1, characters 8-29:
Warning X: bad style, all clauses in this pattern-matching are guarded.

$ camlp4of test.ml
File "test.ml", line 1, characters 14-18:
Parse error: [fun_def] expected after [labeled_ipatt] (in [expr])