src/Pure/Thy/thm_deps.ML
changeset 30280 eb98b49ef835
parent 29606 fedb8be05f24
child 30364 577edc39b501
equal deleted inserted replaced
30279:84097bba7bdc 30280:eb98b49ef835
    31                       | session => [session])
    31                       | session => [session])
    32                   | NONE => [])
    32                   | NONE => [])
    33                | _ => ["global"]);
    33                | _ => ["global"]);
    34             val parents = filter_out (fn s => s = "") (map (#1 o #2) thms');
    34             val parents = filter_out (fn s => s = "") (map (#1 o #2) thms');
    35             val entry =
    35             val entry =
    36               {name = Sign.base_name name,
    36               {name = NameSpace.base_name name,
    37                ID = name,
    37                ID = name,
    38                dir = space_implode "/" (session @ prefix),
    38                dir = space_implode "/" (session @ prefix),
    39                unfold = false,
    39                unfold = false,
    40                path = "",
    40                path = "",
    41                parents = parents};
    41                parents = parents};