equal
deleted
inserted
replaced
416 val _ = Context.set_thread_data ((SOME o Context.Theory) thy'); |
416 val _ = Context.set_thread_data ((SOME o Context.Theory) thy'); |
417 val _ = Secure.use_text notifying_context |
417 val _ = Secure.use_text notifying_context |
418 (0, Path.implode filepath) false (File.read filepath); |
418 (0, Path.implode filepath) false (File.read filepath); |
419 val thy'' = (Context.the_theory o the) (Context.thread_data ()); |
419 val thy'' = (Context.the_theory o the) (Context.thread_data ()); |
420 val names = Loaded_Values.get thy''; |
420 val names = Loaded_Values.get thy''; |
421 val thy''' = Thy_Load.provide_file filepath thy''; |
421 in (names, thy'') end; |
422 in (names, thy''') end; |
|
423 |
422 |
424 end; |
423 end; |
425 |
424 |
426 fun add_definiendum (ml_name, (b, T)) thy = |
425 fun add_definiendum (ml_name, (b, T)) thy = |
427 thy |
426 thy |