remove debugging output from thread close

This commit is contained in:
U-w7\vsc 2013-10-30 16:27:12 +00:00
parent ab5c24cb87
commit 4260c37245

View File

@ -364,7 +364,6 @@ thread_exit(Term) :-
fail.
'$run_at_thread_exit'(Id0) :-
recorded('$thread_exit_hook',[Id0|Hook],R), erase(R),
open('/home/vsc/coutput.txt', append, W), writeln(hook:Hook), close(W),
catch(once(Hook),_,fail),
fail.
'$run_at_thread_exit'(_).