Syntax extension can't handle `when` in match case

[olleharstedt]

Here's an example that won't compile:

let fn = function | i when true -> Printf.printf "Yey!" | _ -> Printf.printf "Ney?"

Error: File "test.ml", line 2, characters 15-17: Parse error: [a_LIDENT] expected after "->" (in [expr])