src/Pure/Isar/parse.ML
changeset 45331 6e0a8aba99ec
parent 44357 5f5649ac8235
child 45488 6d71d9e52369
--- a/src/Pure/Isar/parse.ML	Thu Nov 03 23:55:53 2011 +0100
+++ b/src/Pure/Isar/parse.ML	Fri Nov 04 00:07:45 2011 +0100
@@ -322,7 +322,7 @@
 val simple_fixes = and_list1 params >> flat;
 
 val fixes =
-  and_list1 (binding -- Scan.option ($$$ "::" |-- typ) -- mixfix >> (single o triple1) ||
+  and_list1 (binding -- Scan.option ($$$ "::" |-- typ) -- mixfix' >> (single o triple1) ||
     params >> map (fn (x, y) => (x, y, NoSyn))) >> flat;
 
 val for_fixes = Scan.optional ($$$ "for" |-- !!! fixes) [];