author | wenzelm |
Fri, 05 Feb 1999 21:03:33 +0100 | |
changeset 6244 | daecd68ecc8c |
parent 6243 | fb293dfa2df3 |
child 6245 | ebce4ebba491 |
--- a/src/Pure/Isar/toplevel.ML Fri Feb 05 21:03:06 1999 +0100 +++ b/src/Pure/Isar/toplevel.ML Fri Feb 05 21:03:33 1999 +0100 @@ -343,7 +343,7 @@ fun excursion trs = (case excur trs (State []) of State [] => () - | _ => raise ERROR_MESSAGE "Pending blocks at end of excursion"); + | _ => raise ERROR_MESSAGE "Open block(s) pending at end of input");