# HG changeset patch
# User Christian Urban <urbanc@in.tum.de>
# Date 1314539413 -3600
# Node ID 68c894c513f619a8f9023af09a618d2b40528f00
# Parent  f0fab367453a2528f5f097b62a679b31d89cc497
updated to Isabelle 28 Aug

diff -r f0fab367453a -r 68c894c513f6 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)