changeset 6962 | 399643633529 |
parent 6844 | 3909657a7da6 |
child 7944 | cc1930ad1a88 |
--- a/src/Pure/Syntax/parser.ML Sat Jul 10 21:38:30 1999 +0200 +++ b/src/Pure/Syntax/parser.ML Sat Jul 10 21:40:14 1999 +0200 @@ -193,7 +193,7 @@ (*existing productions whose lookahead may depend on l*) val tk_prods = assocs nt_prods - (Some (hd l_starts handle Hd => UnknownStart)); + (Some (hd l_starts handle LIST _ => UnknownStart)); (*add_lambda is true if an existing production of the nt produces lambda due to the new lambda NT l*)