# HG changeset patch # User wenzelm # Date 1321804692 -3600 # Node ID a27cd85b6028092373e1524947d6cc9a0e69a7f5 # Parent fe57d786fd5bd2befc33ce5712d08b332f4d2b66 eliminated dead code; diff -r fe57d786fd5b -r a27cd85b6028 src/Pure/Isar/parse.ML --- a/src/Pure/Isar/parse.ML Sun Nov 20 15:21:22 2011 +0100 +++ b/src/Pure/Isar/parse.ML Sun Nov 20 16:58:12 2011 +0100 @@ -87,7 +87,6 @@ val simple_fixes: (binding * string option) list parser val fixes: (binding * string option * mixfix) list parser val for_fixes: (binding * string option * mixfix) list parser - val for_simple_fixes: (binding * string option) list parser val ML_source: (Symbol_Pos.text * Position.T) parser val doc_source: (Symbol_Pos.text * Position.T) parser val term_group: string parser @@ -326,7 +325,6 @@ params >> map (fn (x, y) => (x, y, NoSyn))) >> flat; val for_fixes = Scan.optional ($$$ "for" |-- !!! fixes) []; -val for_simple_fixes = Scan.optional ($$$ "for" |-- !!! simple_fixes) []; (* embedded source text *)