equal
deleted
inserted
replaced
81 |
81 |
82 PolyML.Compiler.reportUnreferencedIds := true; |
82 PolyML.Compiler.reportUnreferencedIds := true; |
83 PolyML.Compiler.reportExhaustiveHandlers := true; |
83 PolyML.Compiler.reportExhaustiveHandlers := true; |
84 PolyML.Compiler.printInAlphabeticalOrder := false; |
84 PolyML.Compiler.printInAlphabeticalOrder := false; |
85 PolyML.Compiler.maxInlineSize := 80; |
85 PolyML.Compiler.maxInlineSize := 80; |
86 PolyML.Compiler.prompt1 := "ML> "; |
|
87 PolyML.Compiler.prompt2 := "ML# "; |
|
88 |
86 |
89 fun ml_make_string struct_name = |
87 fun ml_make_string struct_name = |
90 "(fn x => Pretty.string_of (Pretty.from_ML (ML_Pretty.from_polyml (PolyML.prettyRepresentation (x, FixedInt.fromInt (" ^ |
88 "(fn x => Pretty.string_of (Pretty.from_ML (ML_Pretty.from_polyml (PolyML.prettyRepresentation (x, FixedInt.fromInt (" ^ |
91 struct_name ^ ".ML_print_depth ()))))))"; |
89 struct_name ^ ".ML_print_depth ()))))))"; |
92 |
90 |