*)
let debug = true
-let debug_print s = if debug then prerr_endline s
+let debug_print s = if debug then prerr_endline (Lazy.force s)
exception Can_t_kill of Thread.t * string (* thread, reason *)
exception Thread_not_found of Thread.t
| sg when (sg = kill_signal) &&
(PidSet.mem myself !dead_threads_walking) ->
dead_threads_walking := PidSet.remove myself !dead_threads_walking;
- debug_print "AYEEEEH!";
+ debug_print (lazy "AYEEEEH!");
Thread.exit ()
| _ -> ())))