changeset 49564 | 03381c41235b |
parent 48992 | 0518bf89c777 |
child 50201 | c26369c9eda6 |
--- a/src/Pure/Isar/outer_syntax.ML Tue Sep 25 16:55:32 2012 +0200 +++ b/src/Pure/Isar/outer_syntax.ML Tue Sep 25 18:24:49 2012 +0200 @@ -275,7 +275,7 @@ fun cmts (t1 :: t2 :: toks) = if Token.keyword_with (fn s => s = "--") t1 then t2 :: cmts toks else cmts (t2 :: toks) - | cmts toks = []; + | cmts _ = []; in