corrected swallowing of newlines after end-of-ignore
authoroheimb
Fri, 06 Dec 2002 15:16:30 +0100
changeset 13742 452ff5d0b69d
parent 13741 ff140d072bc9
child 13743 f8f9393be64c
corrected swallowing of newlines after end-of-ignore
src/Pure/Isar/isar_output.ML
--- a/src/Pure/Isar/isar_output.ML	Fri Dec 06 11:09:02 2002 +0100
+++ b/src/Pure/Isar/isar_output.ML	Fri Dec 06 15:16:30 2002 +0100
@@ -189,8 +189,7 @@
 
 val ignore =
   Scan.depend (fn i => opt_newline |-- P.position (Scan.one T.is_begin_ignore) >> pair (i + 1)) ||
-  Scan.depend (fn i => P.position (Scan.one T.is_end_ignore) --|
-    (opt_newline -- check_level i) >> pair (i - 1));
+  Scan.depend (fn i => P.position (Scan.one T.is_end_ignore) --| check_level i >> pair (i - 1));
 
 val ignore_cmd = Scan.state -- ignore
   >> (fn (i, (x, pos)) => (false, (None, ((Latex.Basic x, ("", pos)), i))));