Commit 42e4069a authored by Andrei Paskevich's avatar Andrei Paskevich

minor: add some debugging code in comments

parent 054f3dce
......@@ -62,9 +62,9 @@ let fold fn v =
let h = Wtask.create 63 in
let rewind acc task =
(*
Format.printf "%c%d." (match task.task_decl.td_node with
Format.eprintf "%c%d." (match task.task_decl.td_node with
| Decl _ -> 'D' | Clone _ -> 'C'
| Use _ -> 'U' | Meta _ -> 'M') task.task_tag;
| Use _ -> 'U' | Meta _ -> 'M') (task.task_decl.td_tag);
*)
let acc = fn task acc in
Wtask.set h task acc;
......
......@@ -1520,6 +1520,10 @@ let (_ : GtkSignal.id) =
| _ -> ()
end
(*
let () = Debug.set_flag (Debug.lookup_flag "transform")
*)
let () = w#add_accel_group accel_group
let () = w#show ()
let () = GMain.main ()
......
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