author | wenzelm |
Sun, 16 Sep 2007 14:52:29 +0200 | |
changeset 24595 | 5c290506fbc0 |
parent 24594 | 6689effe75d1 |
child 24596 | f1333a841b26 |
--- a/src/Pure/General/scan.ML Sun Sep 16 14:52:28 2007 +0200 +++ b/src/Pure/General/scan.ML Sun Sep 16 14:52:29 2007 +0200 @@ -221,7 +221,7 @@ fun finite' (stopper, is_stopper) scan (state, input) = let - fun lost () = raise ABORT "Scanner bug: lost stopper of finite scan!"; + fun lost () = raise ABORT "Bad scanner: lost stopper of finite scan!"; fun stop [] = lost () | stop lst =