equal
deleted
inserted
replaced
84 ("Malformed antiquotation: " ^ quote ("@{" ^ s ^ "}") ^ Position.str_of pos); |
84 ("Malformed antiquotation: " ^ quote ("@{" ^ s ^ "}") ^ Position.str_of pos); |
85 |
85 |
86 val res = |
86 val res = |
87 Source.of_string s |
87 Source.of_string s |
88 |> Symbol.source false |
88 |> Symbol.source false |
89 |> T.source false (K (lex, Scan.empty_lexicon)) pos |
89 |> T.source NONE (K (lex, Scan.empty_lexicon)) pos |
90 |> T.source_proper |
90 |> T.source_proper |
91 |> Source.source T.stopper (Scan.error (Scan.bulk antiq)) NONE |
91 |> Source.source T.stopper (Scan.error (Scan.bulk antiq)) NONE |
92 |> Source.exhaust; |
92 |> Source.exhaust; |
93 in (case res of [x] => x | _ => err "") handle ERROR msg => err msg end; |
93 in (case res of [x] => x | _ => err "") handle ERROR msg => err msg end; |
94 |
94 |