diff --git a/lib/sasacore/worstInit.ml b/lib/sasacore/worstInit.ml index ba9a53306ff5f50be9421fb7c87bae558b732a76..b8c07bd539f1d334d7193df889969e9d07a55b4f 100644 --- a/lib/sasacore/worstInit.ml +++ b/lib/sasacore/worstInit.ml @@ -1,4 +1,4 @@ -(* Time-stamp: <modified the 06/04/2022 (at 14:52) by Erwan Jahier> *) +(* Time-stamp: <modified the 06/04/2022 (at 15:39) by Erwan Jahier> *) open Register @@ -157,7 +157,7 @@ let value2str = function | Register.B true -> "t" | Register.B false -> "f" -let point2str p = +let _point2str p = Array.fold_right (fun value acc -> (value2str value)::acc) p [] |> String.concat ";" diff --git a/salut/src/dune b/salut/src/dune deleted file mode 100644 index f4c25e2510d78905b129b9b29d7f65c98ef05d5a..0000000000000000000000000000000000000000 --- a/salut/src/dune +++ /dev/null @@ -1,16 +0,0 @@ -;; Time-stamp: <modified the 21/11/2021 (at 17:50) by Erwan Jahier> - -(executable - (name dot2lus) - (flags -noassert) - (link_flags (-linkall)) - (libraries ocamlgraph lutils sasacore algo) -) - -(install - (section bin) - (package sasa) - (files (dot2lus.exe as salut)) -; (files sasaRun.cmxa) -) -