Parent Directory | Revision Log | Patch
revision 1.4 by spiralvoice, Sat Apr 23 11:43:10 2005 UTC | revision 1.5 by spiralvoice, Tue Jun 28 23:17:07 2005 UTC | |
---|---|---|
# | Line 39 external job_done : 'a job -> bool = "ml | Line 39 external job_done : 'a job -> bool = "ml |
39 | external job_start : 'a job -> Unix.file_descr -> unit = "ml_job_start" | external job_start : 'a job -> Unix.file_descr -> unit = "ml_job_start" |
40 | ||
41 | let _ = | let _ = |
if BasicSocket.has_threads () then begin | ||
lprintf "\nUsing threads\n"; | ||
end; | ||
42 | BasicSocket.add_infinite_timer 0.1 (fun _ -> | BasicSocket.add_infinite_timer 0.1 (fun _ -> |
43 | (* lprintf "test job\n"; *) | (* lprintf "test job\n"; *) |
44 | try | try |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |