Attention une mise à jour du serveur va être effectuée le lundi 17 mai entre 13h et 13h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit db7a31e3 authored by bguillaum's avatar bguillaum


git-svn-id: svn+ssh:// 7838e531-6607-4d57-9587-6c381814729c
parent 23d224fb
......@@ -9,7 +9,7 @@ module Domain: sig
val feature_names: unit -> string list option
(* [G_fs] define the ferute srtuctures that are used in graphs *)
(* [G_fs] define the feature srtuctures that are used in graphs *)
module G_fs: sig
type t
......@@ -144,7 +144,6 @@ module P_graph = struct
| Some map -> map
| None -> Log.fbug "[GRS] [Graph.build_extension] add_edge cannot fail in pattern extension (1)"; exit 2
) ext_map_without_edges full_edge_list in
({ext_map = ext_map_with_all_edges; old_map = old_map_without_edges}, new_table)
(* [tree_and_roots t] returns:
......@@ -154,7 +154,7 @@ module Sequence = struct
(fun module_name ->
if not (List.exists (fun modul -> = module_name) module_list)
then ~loc:t.loc "sequence \"%s\", refers to the unknown module \"%s\"."
then ~loc:t.loc "sequence \"%s\" refers to the unknown module \"%s\"." module_name
) t.def
......@@ -29,9 +29,7 @@ module Error = struct
exception Run of (string * Loc.t option)
exception Bug of (string * Loc.t option)
let build_ ?loc message =
Log.fmessage "[%s] %s" (match loc with None -> "?" | Some x -> Loc.to_string x) message;
raise (Build (message, loc))
let build_ ?loc message = raise (Build (message, loc))
let build ?loc = Printf.ksprintf (build_ ?loc)
let run_ ?loc message = raise (Run (message, loc))
Markdown is supported
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