Source

ocaml-lib / dcg / pa_dcg.ml

Diff from to

File dcg/pa_dcg.ml

     [ [ "EOF" ->
         <:patt< _ >>, <:expr< Matcher.eof >>
       | "when"; s = str; e = expr LEVEL "top" ->
-	  let f = <:expr< fun () -> $e$ >> in
+	  let f = <:expr< fun _ _ -> $e$ >> in
 	  <:patt< _ >>, <:expr< Dcg.check $s$ $f$ >>
+      | "@"; x = ipatt ->
+	  x, <:expr< Dcg.rise >>
       | "?"; x = ipatt ->
 	  x, <:expr< Dcg.get_context >>
       | "!"; e = expr LEVEL "top" ->