equal
deleted
inserted
replaced
178 global_theories, loaded_theories, known_theories}) = |
178 global_theories, loaded_theories, known_theories}) = |
179 let |
179 let |
180 val symbols = HTML.make_symbols symbol_codes; |
180 val symbols = HTML.make_symbols symbol_codes; |
181 |
181 |
182 val _ = |
182 val _ = |
183 Resources.set_session_base |
183 Resources.init_session_base |
184 {default_qualifier = name, |
184 {default_qualifier = name, |
185 global_theories = global_theories, |
185 global_theories = global_theories, |
186 loaded_theories = loaded_theories, |
186 loaded_theories = loaded_theories, |
187 known_theories = known_theories}; |
187 known_theories = known_theories}; |
188 |
188 |
208 (List.app (build_theories symbols last_timing name master_dir) |
208 (List.app (build_theories symbols last_timing name master_dir) |
209 |> session_timing name verbose |
209 |> session_timing name verbose |
210 |> Exn.capture); |
210 |> Exn.capture); |
211 val res2 = Exn.capture Session.finish (); |
211 val res2 = Exn.capture Session.finish (); |
212 |
212 |
213 val _ = Resources.reset_session_base (); |
213 val _ = Resources.finish_session_base (); |
214 val _ = Par_Exn.release_all [res1, res2]; |
214 val _ = Par_Exn.release_all [res1, res2]; |
215 in () end; |
215 in () end; |
216 |
216 |
217 (*command-line tool*) |
217 (*command-line tool*) |
218 fun build args_file = |
218 fun build args_file = |