Commit 777b37ac authored by Andrei Paskevich's avatar Andrei Paskevich

fix Debug.nottest_flag

parent dffbfd10
......@@ -39,7 +39,7 @@ let lookup_flag s =
let list_flags () = Hashtbl.fold (fun s v acc -> (s,v,!v)::acc) flag_table []
let test_flag s = !s
let nottest_flag s = !s
let nottest_flag s = not !s
let set_flag s = s := true
let unset_flag s = s := false
......
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