Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/Isar/outer_parse.ML
changeset 11651 201b3f76c7b7
parent 9155 adfa40218e06
child 11792 311eee3d63b6 
--- a/src/Pure/Isar/outer_parse.ML	Mon Oct 01 21:53:50 2001 +0200
+++ b/src/Pure/Isar/outer_parse.ML	Tue Oct 02 20:23:33 2001 +0200
@@ -202,6 +202,7 @@
 
 (* mixfix annotations *)
 
+val infx = $$$ "infix" |-- !!! (nat >> Syntax.Infix || string -- nat >> Syntax.InfixName);
 val infxl = $$$ "infixl" |-- !!! (nat >> Syntax.Infixl || string -- nat >> Syntax.InfixlName);
 val infxr = $$$ "infixr" |-- !!! (nat >> Syntax.Infixr || string -- nat >> Syntax.InfixrName);
 
@@ -220,11 +221,11 @@
 fun opt_fix guard fix =
   Scan.optional ($$$ "(" |-- guard (fix --| $$$ ")")) Syntax.NoSyn;
 
-val opt_infix = opt_fix !!! (infxl || infxr);
-val opt_mixfix = opt_fix !!! (mixfix || binder || infxl || infxr);
+val opt_infix = opt_fix !!! (infxl || infxr || infx);
+val opt_mixfix = opt_fix !!! (mixfix || binder || infxl || infxr || infx);
 
-val opt_infix' = opt_fix I (infxl || infxr);
-val opt_mixfix' = opt_fix I (mixfix || binder || infxl || infxr);
+val opt_infix' = opt_fix I (infxl || infxr || infx);
+val opt_mixfix' = opt_fix I (mixfix || binder || infxl || infxr || infx);
 
 
 (* consts *)
isabelle