427 val setup = |
427 val setup = |
428 Code_Target.add_target |
428 Code_Target.add_target |
429 (target, { serializer = isar_serializer, literals = literals, |
429 (target, { serializer = isar_serializer, literals = literals, |
430 check = { env_var = "SCALA_HOME", make_destination = I, |
430 check = { env_var = "SCALA_HOME", make_destination = I, |
431 make_command = fn scala_home => fn p => fn _ => |
431 make_command = fn scala_home => fn p => fn _ => |
432 Path.implode (Path.append (Path.explode scala_home) (Path.explode "bin/scalac")) ^ " *.scala" } }) |
432 "export JAVA_OPTS='-Xms128m -Xmx512m -Xss2m' && " |
|
433 ^ Path.implode (Path.append (Path.explode scala_home) (Path.explode "bin/scalac")) ^ " *.scala" } }) |
433 #> Code_Target.add_syntax_tyco target "fun" |
434 #> Code_Target.add_syntax_tyco target "fun" |
434 (SOME (2, fn print_typ => fn fxy => fn [ty1, ty2] => |
435 (SOME (2, fn print_typ => fn fxy => fn [ty1, ty2] => |
435 brackify_infix (1, R) fxy ( |
436 brackify_infix (1, R) fxy ( |
436 print_typ BR ty1 (*product type vs. tupled arguments!*), |
437 print_typ BR ty1 (*product type vs. tupled arguments!*), |
437 str "=>", |
438 str "=>", |