equal
deleted
inserted
replaced
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; |