equal
deleted
inserted
replaced
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 |