let set ~origin conf name value =
  try
    (Hashtbl.find metaconf name).parse_set value conf
  with
    | Not_found ->
        failwithf
          "Variable %S is not defined in the application.\n%s" name origin
    | Parse_error str ->
        failwith (str ^ "\n" ^ origin)