equal
deleted
inserted
replaced
332 {name = "theory:" ^ name, group = SOME (Future.new_group (SOME group)), |
332 {name = "theory:" ^ name, group = SOME (Future.new_group (SOME group)), |
333 deps = map (Future.task_of o #2) deps, pri = ~2, interrupts = false} |
333 deps = map (Future.task_of o #2) deps, pri = ~2, interrupts = false} |
334 (fn () => |
334 (fn () => |
335 iterate_entries (fn (_, opt_exec) => fn () => |
335 iterate_entries (fn (_, opt_exec) => fn () => |
336 (case opt_exec of |
336 (case opt_exec of |
337 SOME exec => if running () then SOME (Command.execute exec) else NONE |
337 SOME exec => if running () then SOME (Command.exec exec) else NONE |
338 | NONE => NONE)) node ())); |
338 | NONE => NONE)) node ())); |
339 in () end; |
339 in () end; |
340 |
340 |
341 |
341 |
342 |
342 |