Commit f3ae1e7b authored by Loïc Correnson's avatar Loïc Correnson
Browse files

[lib] renamed global hooks in messages

parent 2a3b1974
......@@ -48,11 +48,11 @@ module Messages =
end)
let () = Ast.add_monotonic_state Messages.self
let demons = ref []
let hooks = ref []
let add_message m =
begin
Messages.set (m :: Messages.get ()) ;
List.iter (fun fn -> fn()) !demons ;
List.iter (fun fn -> fn()) !hooks ;
end
let nb_errors () =
......@@ -100,7 +100,7 @@ let () = Log.check_not_yet := check_not_yet
let reset_once_flag () = OnceTable.clear ()
let add_global_hook fn = demons := !demons @ [fn]
let add_global_hook fn = hooks := !hooks @ [fn]
(*
Local Variables:
......
Supports Markdown
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