src/Pure/Isar/constdefs.ML

--- a/src/Pure/Isar/constdefs.ML	Thu Apr 26 12:00:01 2007 +0200
+++ b/src/Pure/Isar/constdefs.ML	Thu Apr 26 12:00:05 2007 +0200
@@ -49,7 +49,7 @@
 
     val thy' =
       thy
-      |> Theory.add_consts_i [(c, T, mx)]
+      |> Sign.add_consts_i [(c, T, mx)]
       |> PureThy.add_defs_i false [((name, def), atts)]
       |-> (fn [thm] => CodegenData.add_func false thm);
   in ((c, T), thy') end;