consts: syntax consts only for actual syntax;
authorwenzelm
Thu, 28 Sep 2006 23:42:56 +0200
changeset 20777 00e560b6c112
parent 20776 cc436bcdd5fc
child 20778 f39c733f2a7e
consts: syntax consts only for actual syntax;
src/Pure/sign.ML
--- a/src/Pure/sign.ML	Thu Sep 28 23:42:55 2006 +0200
+++ b/src/Pure/sign.ML	Thu Sep 28 23:42:56 2006 +0200
@@ -733,7 +733,6 @@
   in
     thy
     |> map_consts (fold (Consts.declare (naming_of thy) o #1) args)
-    |> map_syn (Syntax.extend_consts (map (#1 o #1 o #1) args))
     |> add_syntax_i (map #2 args)
   end;
 
@@ -761,7 +760,6 @@
   in
     thy
     |> map_consts (Consts.abbreviate (pp thy) (tsig_of thy) (naming_of thy) mode ((c, t), true))
-    |> map_syn (Syntax.extend_consts [c])
     |> add_modesyntax_i (mode, inout) [(c', T, mx)]
   end);