let raise_compile_error s_list = 
  raise (Ircompile_error (concat s_list))