equal
deleted
inserted
replaced
273 Scan.one not_eof; |
273 Scan.one not_eof; |
274 |
274 |
275 |
275 |
276 (* source *) |
276 (* source *) |
277 |
277 |
278 val recover = Scan.any1 ((not o is_blank) andf not_eof); |
278 val recover = Scan.any ((not o is_blank) andf not_eof); |
279 |
279 |
280 fun source do_recover src = |
280 fun source do_recover src = |
281 Source.source stopper (Scan.bulk scan) (if do_recover then Some recover else None) src; |
281 Source.source stopper (Scan.bulk scan) (if do_recover then Some recover else None) src; |
282 |
282 |
283 |
283 |