Parent Directory | Revision Log | Patch
revision 1.30 by spiralvoice, Thu Jul 28 23:25:22 2005 UTC | revision 1.31 by spiralvoice, Fri Aug 26 21:21:20 2005 UTC | |
---|---|---|
# | Line 882 let rec give_a_slot c = | Line 882 let rec give_a_slot c = |
882 | and find_pending_slot () = | and find_pending_slot () = |
883 | try | try |
884 | let rec iter () = | let rec iter () = |
885 | let _, c = Intmap.top !pending_slots_map in | let c = Intmap.nth !pending_slots_map |
886 | (Random.int (Intmap.length !pending_slots_map)) in | |
887 | give_a_slot c | give_a_slot c |
888 | in | in |
889 | iter () | iter () |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |