type tracer = string
type level = int
-let tracers = [ "top-down-run"; "top-down-approx"; "result-set" ]
+let tracers = [ "top-down-run"; "top-down-approx"; "result-set"; "level2-jit"; "res-jit"; "grammar" ]
let active_tracers : (tracer, int) Hashtbl.t = Hashtbl.create 17
let available () = tracers
if l <= level t
then begin
fprintf !tracer_output "%s: " t;
- fprintf !tracer_output "%s" s
+ fprintf !tracer_output "%s%!" s
end