Commit 3211688b authored by MARCHE Claude's avatar MARCHE Claude

dead code

parent 742f0819
......@@ -213,11 +213,13 @@ let rec t_shape ~version ~(push:string->'a->'a) c m (acc:'a) t : 'a =
| Ttrue -> push tag_true acc
| Tfalse -> push tag_false acc
(* dead code
let t_shape_buf ?(version=current_shape_version) t =
let b = Buffer.create 17 in
let push t () = Buffer.add_string b t in
let () = t_shape ~version ~push (ref (-1)) Mvs.empty () t in
Buffer.contents b
*)
let t_shape_task ?(version=current_shape_version) t =
let b = Buffer.create 17 in
......
......@@ -19,6 +19,8 @@ open Decl
open Task
open Libencoding
(* complete dead module code
(** module with printing functions *)
module Debug = struct
let print_mtv vprinter fmter m =
......@@ -35,6 +37,7 @@ module Debug = struct
let debug x = Format.eprintf "%s@." x
end
*)
(** {2 module to separate utilities from important functions} *)
......
......@@ -54,7 +54,9 @@ module Make(X: Set.OrderedType) = struct
type t = elt RA.t
let create ~dummy = RA.make 0 dummy
let is_empty h = RA.length h = 0
(* dead code
let clear h = RA.resize h 0
*)
let rec move_up h x i =
if i = 0 then RA.set h i x else
......
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