equal
deleted
inserted
replaced
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}; |