author | Christian Urban <urbanc@in.tum.de> |
Sun, 28 Aug 2011 14:50:13 +0100 | |
changeset 2999 | 68c894c513f6 |
parent 2998 | f0fab367453a |
child 3000 | 3c8d3aaf292c |
--- 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)