Commit b16c39ab authored by POTTIER Francois's avatar POTTIER Francois

Fix an error message.

parent 2b44e2cc
...@@ -454,7 +454,7 @@ module Make (T : TABLE) = struct ...@@ -454,7 +454,7 @@ module Make (T : TABLE) = struct
| AboutToReduce (env, prod) -> | AboutToReduce (env, prod) ->
Obj.magic reduce env prod Obj.magic reduce env prod
| _ -> | _ ->
invalid_arg "resume expects HandlingError | AboutToReduce" invalid_arg "resume expects HandlingError | Shifting | AboutToReduce"
(* ------------------------------------------------------------------------ *) (* ------------------------------------------------------------------------ *)
(* ------------------------------------------------------------------------ *) (* ------------------------------------------------------------------------ *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment