equal
deleted
inserted
replaced
155 |
155 |
156 val {name = (name, _), ...} = header; |
156 val {name = (name, _), ...} = header; |
157 val _ = Thy_Header.define_keywords header; |
157 val _ = Thy_Header.define_keywords header; |
158 |
158 |
159 val lexs = Keyword.get_lexicons (); |
159 val lexs = Keyword.get_lexicons (); |
160 val toks = Outer_Syntax.parse_tokens lexs text_pos text; |
160 val toks = Outer_Syntax.scan lexs text_pos text; |
161 val spans = Outer_Syntax.parse_spans toks; |
161 val spans = Outer_Syntax.parse_spans toks; |
162 val elements = Thy_Syntax.parse_elements spans; |
162 val elements = Thy_Syntax.parse_elements spans; |
163 |
163 |
164 fun init () = |
164 fun init () = |
165 begin_theory master_dir header parents |
165 begin_theory master_dir header parents |