src/Pure/Concurrent/task_queue.ML
changeset 41682 44a2e0db281f
parent 41681 b5d7b15166bf
child 41683 73dde8006820
equal deleted inserted replaced
41681:b5d7b15166bf 41682:44a2e0db281f
   157 
   157 
   158 
   158 
   159 (* queue *)
   159 (* queue *)
   160 
   160 
   161 datatype queue = Queue of
   161 datatype queue = Queue of
   162  {groups: task list Inttab.table,   (*groups with presently active members*)
   162  {groups: task list Inttab.table,   (*groups with presently known members*)
   163   jobs: jobs};                      (*job dependency graph*)
   163   jobs: jobs};                      (*job dependency graph*)
   164 
   164 
   165 fun make_queue groups jobs = Queue {groups = groups, jobs = jobs};
   165 fun make_queue groups jobs = Queue {groups = groups, jobs = jobs};
   166 
   166 
   167 val empty = make_queue Inttab.empty Task_Graph.empty;
   167 val empty = make_queue Inttab.empty Task_Graph.empty;