--- 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;