src/Pure/ML/ml_print_depth.ML
changeset 62889 99c7f31615c2
parent 62878 1cec457e0a03
child 62900 c641bf9402fd
equal deleted inserted replaced
62888:64f44d7279e5 62889:99c7f31615c2
    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;