src/Tools/Code/code_scala.ML
changeset 38916 c0b857a04758
parent 38915 026526cba0e6
child 38922 ec2a8efd8990
equal deleted inserted replaced
38915:026526cba0e6 38916:c0b857a04758
   481       then map (fn (base, p) => print_module base [] p) includes else [];
   481       then map (fn (base, p) => print_module base [] p) includes else [];
   482     val p = Pretty.chunks2 (p_includes @ the_list (print_nodes [] sca_program));
   482     val p = Pretty.chunks2 (p_includes @ the_list (print_nodes [] sca_program));
   483     fun write width NONE = writeln_pretty width
   483     fun write width NONE = writeln_pretty width
   484       | write width (SOME p) = File.write p o string_of_pretty width;
   484       | write width (SOME p) = File.write p o string_of_pretty width;
   485   in
   485   in
   486     Code_Target.mk_serialization write (rpair [] oo string_of_pretty) p
   486     Code_Target.serialization write (rpair [] oo string_of_pretty) p
   487   end;
   487   end;
   488 
   488 
   489 end; (*local*)
   489 end; (*local*)
   490 
   490 
   491 val literals = let
   491 val literals = let