changeset 62672 | 068b430e678f |
parent 62663 | bea354f6ff21 |
child 62711 | 09df6a51ad3c |
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 |