@{binding} is not a constructor term and should not be inlined, otherwise we loose value polymorphism;
authorwenzelm
Wed, 25 Mar 2009 21:35:49 +0100
changeset 30721 0579dec9f8ba
parent 30720 6d8dcfb264dc
child 30722 623d4831c8cf
@{binding} is not a constructor term and should not be inlined, otherwise we loose value polymorphism;
src/Pure/ML/ml_antiquote.ML
--- a/src/Pure/ML/ml_antiquote.ML	Wed Mar 25 21:34:31 2009 +0100
+++ b/src/Pure/ML/ml_antiquote.ML	Wed Mar 25 21:35:49 2009 +0100
@@ -59,7 +59,7 @@
 
 structure P = OuterParse;
 
-val _ = inline "binding"
+val _ = value "binding"
   (Scan.lift (P.position Args.name) >> (fn name => ML_Syntax.atomic (ML_Syntax.make_binding name)));
 
 val _ = value "theory"