| DisambiguateTypes.Symbol _ -> "SYM"
| DisambiguateTypes.Num _ -> "NUM"
in
- prerr_endline (Printf.sprintf "lookup_choices of %s returns length %d" id
- (List.length res));
+ debug_print (lazy (Printf.sprintf "lookup_choices of %s returns length %d" id
+ (List.length res)));
res
with Not_found -> [])
in