src/Pure/PIDE/document.ML
changeset 52600 75afb82daf5c
parent 52599 d7871f38ffb4
child 52602 00170ef1dc39
equal deleted inserted replaced
52599:d7871f38ffb4 52600:75afb82daf5c
   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