# HG changeset patch
# User berghofe
# Date 1017329292 -3600
# Node ID cc9d7f403a4b2a2b19e91dfef7ca0e64f284a0aa
# Parent  0e028b1f3f38d77ecafa624d21643af1dce64a2f
mk_const_id now checks for clashes with reserved ML identifiers.

diff -r 0e028b1f3f38 -r cc9d7f403a4b src/Pure/codegen.ML
--- a/src/Pure/codegen.ML	Wed Mar 27 20:45:03 2002 +0100
+++ b/src/Pure/codegen.ML	Thu Mar 28 16:28:12 2002 +0100
@@ -248,7 +248,9 @@
     (if not (Symbol.is_letter x) then "id" else "") ^ check_str xs
   end;
 
-val mk_const_id = gen_mk_id Sign.constK I;
+val mk_const_id = gen_mk_id Sign.constK
+  (fn s => if s mem ThmDatabase.ml_reserved then s ^ "_const" else s);
+
 val mk_type_id = gen_mk_id Sign.typeK
   (fn s => if s mem ThmDatabase.ml_reserved then s ^ "_type" else s);