Commit db7a31e3 authored by bguillaum's avatar bguillaum

Typos

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8103 7838e531-6607-4d57-9587-6c381814729c
parent 23d224fb
......@@ -9,7 +9,7 @@ module Domain: sig
val feature_names: unit -> string list option
end
(* [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
List.iter
(fun module_name ->
if not (List.exists (fun modul -> modul.Modul.name = module_name) module_list)
then Error.build ~loc:t.loc "sequence \"%s\", refers to the unknown module \"%s\"."
then Error.build ~loc:t.loc "sequence \"%s\" refers to the unknown module \"%s\"."
t.name 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