corrections and adjustions for Scala 3
authorhaftmann
Mon, 04 Jul 2022 10:08:10 +0000
changeset 75649 7afb6628ab86
parent 75648 aa0403e5535f
child 75650 6d4fb57eb66c
corrections and adjustions for Scala 3
src/Tools/Code/code_scala.ML
--- a/src/Tools/Code/code_scala.ML	Mon Jul 04 07:57:23 2022 +0000
+++ b/src/Tools/Code/code_scala.ML	Mon Jul 04 10:08:10 2022 +0000
@@ -161,7 +161,7 @@
               vars
               |> print_bind tyvars some_thm BR pat
               |>> (fn p => (false, concat [str "val", p, str "=",
-                constraint (print_term tyvars false some_thm vars NOBR t) (print_typ tyvars NOBR ty)]));
+                constraint (print_term tyvars false some_thm vars NOBR t) (print_typ tyvars BR ty)]));
             fun print_match_seq t vars =
               ((true, print_term tyvars false some_thm vars NOBR t), vars);
             fun print_match is_first ((IVar NONE, ty), t) =
@@ -334,7 +334,7 @@
                 (map print_classparam_val classparams))
               :: map print_classparam_def classparams
               @| Pretty.block_enclose
-                (str ("object " ^ deresolve_class class ^ "{"), str "}")
+                (str ("object " ^ deresolve_class class ^ " {"), str "}")
                 (map (print_inst class) insts)
             )
           end;