equal
deleted
inserted
replaced
23 (fn _ => Config.Int (ML_Print_Depth.get_print_depth ())); |
23 (fn _ => Config.Int (ML_Print_Depth.get_print_depth ())); |
24 |
24 |
25 val print_depth = Config.int print_depth_raw; |
25 val print_depth = Config.int print_depth_raw; |
26 |
26 |
27 fun get_print_depth () = |
27 fun get_print_depth () = |
28 (case Context.thread_data () of |
28 (case Context.get_generic_context () of |
29 NONE => ML_Print_Depth.get_print_depth () |
29 NONE => ML_Print_Depth.get_print_depth () |
30 | SOME context => Config.get_generic context print_depth); |
30 | SOME context => Config.get_generic context print_depth); |
31 |
31 |
32 fun get_print_depth_default default = |
32 fun get_print_depth_default default = |
33 (case Context.thread_data () of |
33 (case Context.get_generic_context () of |
34 NONE => default |
34 NONE => default |
35 | SOME context => Config.get_generic context print_depth); |
35 | SOME context => Config.get_generic context print_depth); |
36 |
36 |
37 end; |
37 end; |