(** Time-stamp: <modified the 23/10/2008 (at 11:37) by Erwan Jahier> *)

(* Utilitaires pour la compil, au dessus de Lxm et Errors  *)

(** Insert an item in the lexeme table. Raise [Compile_error] if already defined. *)


(* TODO: A mettre ailleurs, ou sous un autre nom.  *)
val put_in_tab : 
  string -> ('a, 'b Lxm.srcflagged) Hashtbl.t -> 'a -> 'b  Lxm.srcflagged -> unit