src/Pure/Isar/antiquote.ML
changeset 23677 1114cc909800
parent 22114 560c5b5dda1c
child 23784 75e6b9dd5336
equal deleted inserted replaced
23676:ea9b7e9c2301 23677:1114cc909800
    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