fixed method syntax;
authorwenzelm
Thu, 19 Nov 1998 11:49:57 +0100
changeset 5940 33bdc03bba7e
parent 5939 2d7c7a4fcd8a
child 5941 1db9fad40a4f
fixed method syntax;
src/Pure/Isar/outer_parse.ML
--- a/src/Pure/Isar/outer_parse.ML	Thu Nov 19 11:49:41 1998 +0100
+++ b/src/Pure/Isar/outer_parse.ML	Thu Nov 19 11:49:57 1998 +0100
@@ -241,17 +241,17 @@
  (position (xname >> rpair []) >> (Method.Source o Args.src) ||
   $$$ "(" |-- meth0 --| $$$ ")") x
 and meth3 x =
- (position (xname -- args1 false) >> (Method.Source o Args.src) ||
-  meth4) x
-and meth2 x =
  (meth4 --| $$$ "?" >> Method.Try ||
   meth4 --| $$$ "*" >> Method.Repeat ||
   meth4 --| $$$ "+" >> Method.Repeat1 ||
+  meth4) x
+and meth2 x =
+ (position (xname -- args1 false) >> (Method.Source o Args.src) ||
   meth3) x
 and meth1 x = (enum1 "," meth2 >> (fn [m] => m | ms => Method.Then ms)) x
 and meth0 x = (enum1 "|" meth1 >> (fn [m] => m | ms => Method.Orelse ms)) x;
 
-val method = meth2;
+val method = meth3;
 
 
 end;