updated to Isabelle 28 Aug
authorChristian Urban <urbanc@in.tum.de>
Sun, 28 Aug 2011 14:50:13 +0100
changeset 2999 68c894c513f6
parent 2998 f0fab367453a
child 3000 3c8d3aaf292c
updated to Isabelle 28 Aug
Nominal/nominal_function.ML
--- a/Nominal/nominal_function.ML	Fri Aug 19 12:49:38 2011 +0900
+++ b/Nominal/nominal_function.ML	Sun Aug 28 14:50:13 2011 +0100
@@ -256,7 +256,7 @@
 (* outer syntax *)
 
 local
-  val option_parser = Parse.group "option"
+  val option_parser = Parse.group (fn () => "option")
     ((Parse.reserved "sequential" >> K Sequential)
      || ((Parse.reserved "default" |-- Parse.term) >> Default)
      || (Parse.reserved "domintros" >> K DomIntros)