author | berghofe |
Mon, 19 Nov 2001 17:42:00 +0100 | |
changeset 12239 | ee360f910ec8 |
parent 12238 | 09966ccbc84c |
child 12240 | 0760eda193c4 |
--- a/src/Pure/Thy/thm_deps.ML Mon Nov 19 17:40:45 2001 +0100 +++ b/src/Pure/Thy/thm_deps.ML Mon Nov 19 17:42:00 2001 +0100 @@ -54,7 +54,8 @@ | None => []) | _ => ["global"]); in - (Symtab.update ((name, + if name mem parents' then (gra', parents union parents') + else (Symtab.update ((name, {name = Sign.base_name name, ID = name, dir = space_implode "/" (session @ prefx), unfold = false, path = "", parents = parents'}), gra'),