src/Pure/System/scala.ML
changeset 71898 4df341249348
parent 71881 71de0a253842
child 71911 d25093536482
equal deleted inserted replaced
71897:2cf0b0293f0d 71898:4df341249348
    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