src/Pure/Thy/thm_deps.ML
changeset 17224 a78339014063
parent 17020 f3014afac46f
child 17412 e26cb20ef0cc
     1.1 --- a/src/Pure/Thy/thm_deps.ML	Thu Sep 01 22:15:10 2005 +0200
     1.2 +++ b/src/Pure/Thy/thm_deps.ML	Thu Sep 01 22:15:12 2005 +0200
     1.3 @@ -55,10 +55,10 @@
     1.4                   | _ => ["global"]);
     1.5              in
     1.6                if name mem parents' then (gra', parents union parents')
     1.7 -              else (Symtab.update ((name,
     1.8 +              else (Symtab.curried_update (name,
     1.9                  {name = Sign.base_name name, ID = name,
    1.10                   dir = space_implode "/" (session @ prefx),
    1.11 -                 unfold = false, path = "", parents = parents'}), gra'),
    1.12 +                 unfold = false, path = "", parents = parents'}) gra',
    1.13                 name ins parents)
    1.14              end
    1.15            else (gra, name ins parents)