src/Pure/ML/ml_pretty.ML
changeset 62672 068b430e678f
parent 62663 bea354f6ff21
child 62711 09df6a51ad3c
equal deleted inserted replaced
62671:a9ee1f240b81 62672:068b430e678f
    94 local
    94 local
    95   val depth = Unsynchronized.ref 0;
    95   val depth = Unsynchronized.ref 0;
    96 in
    96 in
    97   fun get_print_depth () = ! depth;
    97   fun get_print_depth () = ! depth;
    98   fun print_depth n = (depth := n; PolyML.print_depth n);
    98   fun print_depth n = (depth := n; PolyML.print_depth n);
    99   val _ = print_depth 10;
    99   val _ = print_depth 20;
   100 end;
   100 end;
   101 
   101 
   102 
   102 
   103 (* format *)
   103 (* format *)
   104 
   104