Commit b640c2f4 authored by bguillaum's avatar bguillaum

matching not exhaustive

git-svn-id: svn+ssh://scm.gforge.inria.fr/svnroot/semagramme/dep2pict/trunk@8682 7838e531-6607-4d57-9587-6c381814729c
parent 3f4e20ea
......@@ -132,6 +132,7 @@ let write file string =
(* -------------------------------------------------------------------------------- *)
let save file =
match !current_position with
| None -> Log.critical "[Global.save] No position defined!"
| Some index -> !current_array.(index) <- (fst (!current_array.(index)), !current_source);
let out_ch = open_out file in
Array.iter (fun (_,src) -> fprintf out_ch "%s\n" src) !current_array;
......
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