changeset 58864 | 505a8150368a |
parent 58861 | 5ff61774df11 |
child 58866 | f81e11391562 |
--- a/src/Pure/Thy/thy_output.ML Sat Nov 01 18:46:48 2014 +0100 +++ b/src/Pure/Thy/thy_output.ML Sat Nov 01 19:33:51 2014 +0100 @@ -415,8 +415,8 @@ val spans = toks |> take_suffix Token.is_space |> #1 |> Source.of_list - |> Source.source' 0 Token.stopper (Scan.error (Scan.bulk token)) NONE - |> Source.source stopper (Scan.error (Scan.bulk span)) NONE + |> Source.source' 0 Token.stopper (Scan.error (Scan.bulk token)) + |> Source.source stopper (Scan.error (Scan.bulk span)) |> Source.exhaust;