Commit fac788f2 authored by Cyril SIX's avatar Cyril SIX
Browse files

Flushing debug output

parent 9a1d53cd
......@@ -23,7 +23,7 @@ type reg = P.t;;
let debug_flag = ref false
let debug fmt =
if !debug_flag then Printf.eprintf fmt
if !debug_flag then (flush stderr; Printf.eprintf fmt)
else Printf.ifprintf stderr fmt
type vstate = Unvisited | Processed | Visited
Supports Markdown
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