let really_acknowledge (name, param) =
  match param with
    | None ->
        if Hashtbl.mem declared_tags name then
          Log.eprintf "Warning: tag %S expects a parameter" name
    | Some param ->
        let actions = List.rev (Hashtbl.find_all declared_tags name) in
        if actions = [] then
          Log.eprintf "Warning: tag %S does not expect a parameter, but is used with parameter %S" name param;
        List.iter (fun f -> f param) actions