| changeset 7352 | d98001b492b3 |
| parent 7171 | 2a245a80a2c5 |
| child 7418 | 87c12d352bab |
--- a/src/Pure/Isar/outer_parse.ML Wed Aug 25 20:38:56 1999 +0200 +++ b/src/Pure/Isar/outer_parse.ML Wed Aug 25 20:39:18 1999 +0200 @@ -173,7 +173,7 @@ xname >> single || $$$ "{" |-- !!! (list xname --| $$$ "}"); fun gen_arity cod = - Scan.optional ($$$ "(" |-- !!! (Scan.repeat1 sort --| $$$ ")")) [] -- cod; + Scan.optional ($$$ "(" |-- !!! (list1 sort --| $$$ ")")) [] -- cod; val arity = gen_arity sort; val simple_arity = gen_arity name;