Commit 9aba438b authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Moved an assertion out of of [Terminal.mapx].

parent 1c907c21
......@@ -237,9 +237,10 @@ module Terminal = struct
let map f =
Misc.mapi n f
let () =
assert (sharp = n - 1)
let mapx f =
assert (sharp = n - 1);
Misc.mapi (n-1) f
Misc.mapi sharp f
(* If a token named [EOF] exists, then it is assumed to represent
ocamllex's [eof] pattern. *)
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