Commit 48f79944 authored by Julien Signoles's avatar Julien Signoles
Browse files

[Keep_status] revert to previous state (changes commited by mistake)

parent 3e1613da
......@@ -133,9 +133,9 @@ let must_translate kf kind =
let name = Functions.RTL.get_original_name kf in
try
let info =
(* try*) Datatype.String.Hashtbl.find keep_status name
(* with Not_found ->
Options.fatal "[keep_status] unbound function" Datatype.String.pretty kf*)
try Datatype.String.Hashtbl.find keep_status name
with Not_found ->
Options.fatal "[keep_status] unbound function" Datatype.String.pretty kf
in
info.cpt <- info.cpt + 1;
let kind', keep =
......
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