equal
deleted
inserted
replaced
153 if null verbatim then () |
153 if null verbatim then () |
154 else legacy_feature ("Old-style {* verbatim *} token -- use \<open>cartouche\<close> instead" ^ |
154 else legacy_feature ("Old-style {* verbatim *} token -- use \<open>cartouche\<close> instead" ^ |
155 Position.here_list verbatim); |
155 Position.here_list verbatim); |
156 in |
156 in |
157 if exists #1 token_reports then Toplevel.malformed pos "Malformed command syntax" |
157 if exists #1 token_reports then Toplevel.malformed pos "Malformed command syntax" |
158 else |
158 else Outer_Syntax.parse_span thy init (resolve_files keywords master_dir blobs_info span) |
159 (case Outer_Syntax.parse_tokens thy (resolve_files keywords master_dir blobs_info span) of |
|
160 [tr] => Toplevel.modify_init init tr |
|
161 | [] => Toplevel.ignored (#1 (Token.range_of span)) |
|
162 | _ => Toplevel.malformed (#1 core_range) "Exactly one command expected") |
|
163 handle ERROR msg => Toplevel.malformed (#1 core_range) msg |
|
164 end; |
159 end; |
165 |
160 |
166 end; |
161 end; |
167 |
162 |
168 |
163 |