src/Pure/Thy/present.ML
changeset 12311 ce5f9e61c037
parent 12151 fb0fb0209c87
child 12632 3d3e356778b5
equal deleted inserted replaced
12310:26407b087c8e 12311:ce5f9e61c037
    76   val name = "Pure/browser_info";
    76   val name = "Pure/browser_info";
    77   type T = {name: string, session: string list, is_local: bool};
    77   type T = {name: string, session: string list, is_local: bool};
    78 
    78 
    79   val empty = {name = "Pure", session = [], is_local = false};
    79   val empty = {name = "Pure", session = [], is_local = false};
    80   val copy = I;
    80   val copy = I;
    81   val finish = I;
       
    82   fun prep_ext _ = {name = "", session = [], is_local = false};
    81   fun prep_ext _ = {name = "", session = [], is_local = false};
    83   fun merge _ = empty;
    82   fun merge _ = empty;
    84   fun print _ _ = ();
    83   fun print _ _ = ();
    85 end;
    84 end;
    86 
    85