src/Pure/ROOT.ML
changeset 62573 27f90319a499
parent 62551 df62e1ab7d88
child 62584 6cd36a0d2a28
equal deleted inserted replaced
62572:acd17a6ce17d 62573:27f90319a499
    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