more robust static structure reference, avoid dynamic Proof_Context.intern_skolem in Syntax_Phases.decode_term;
authorwenzelm
Tue, 09 Apr 2013 13:24:00 +0200
changeset 51656 4ce2f7607d3d
parent 51655 28d6eb23522c
child 51657 3db1bbc82d8d
more robust static structure reference, avoid dynamic Proof_Context.intern_skolem in Syntax_Phases.decode_term;
src/Pure/Syntax/syntax_trans.ML
--- a/src/Pure/Syntax/syntax_trans.ML	Tue Apr 09 13:20:09 2013 +0200
+++ b/src/Pure/Syntax/syntax_trans.ML	Tue Apr 09 13:24:00 2013 +0200
@@ -250,7 +250,8 @@
 fun the_struct [] = error "Illegal reference to implicit structure"
   | the_struct (x :: _) = x;
 
-fun struct_tr structs [Const ("_indexdefault", _)] = Syntax.free (the_struct structs)
+fun struct_tr structs [Const ("_indexdefault", _)] =
+      Syntax.const (Lexicon.mark_fixed (the_struct structs))
   | struct_tr _ ts = raise TERM ("struct_tr", ts);