equal
deleted
inserted
replaced
92 |> map (fn a => (a, (kind, a)))); |
92 |> map (fn a => (a, (kind, a)))); |
93 in error ("Bad " ^ kind ^ " " ^ quote name ^ Position.here pos ^ completion_report) end |
93 in error ("Bad " ^ kind ^ " " ^ quote name ^ Position.here pos ^ completion_report) end |
94 end; |
94 end; |
95 |
95 |
96 val _ = Theory.setup |
96 val _ = Theory.setup |
97 (Thy_Output.antiquotation_verbatim_embedded \<^binding>\<open>scala_function\<close> |
97 (ML_Antiquotation.inline_embedded \<^binding>\<open>scala_function\<close> |
98 (Scan.lift Parse.embedded_position) check_function #> |
|
99 ML_Antiquotation.inline_embedded \<^binding>\<open>scala_function\<close> |
|
100 (Args.context -- Scan.lift Parse.embedded_position |
98 (Args.context -- Scan.lift Parse.embedded_position |
101 >> (uncurry check_function #> ML_Syntax.print_string)) #> |
99 >> (uncurry check_function #> ML_Syntax.print_string)) #> |
102 ML_Antiquotation.value_embedded \<^binding>\<open>scala\<close> |
100 ML_Antiquotation.value_embedded \<^binding>\<open>scala\<close> |
103 (Args.context -- Scan.lift Args.embedded_position >> (fn (ctxt, arg) => |
101 (Args.context -- Scan.lift Args.embedded_position >> (fn (ctxt, arg) => |
104 let val name = check_function ctxt arg |
102 let val name = check_function ctxt arg |