Mercurial > feed
comparison src/ur/feed.ur @ 13:7eea7ff1904c
Handle case of finish on self-closing tag.
author | Karn Kallio <kkallio@eka> |
---|---|
date | Sun, 24 Jul 2011 03:36:07 -0430 |
parents | 43c3fbd8527a |
children | f641cfcd5153 |
comparison
equal
deleted
inserted
replaced
12:a40cf9c8d615 | 13:7eea7ff1904c |
---|---|
371 | Some (data, cont) => | 371 | Some (data, cont) => |
372 acc <- f data acc; | 372 acc <- f data acc; |
373 recur xml acc (if cont then state else p.Initial)) | 373 recur xml acc (if cont then state else p.Initial)) |
374 | Some (data, cont) => | 374 | Some (data, cont) => |
375 acc <- f data acc; | 375 acc <- f data acc; |
376 state <- return (if ended then | |
377 Option.get p.Initial (p.ExitTag state) | |
378 else | |
379 state); | |
380 | |
376 recur xml acc (if cont then state else p.Initial) | 381 recur xml acc (if cont then state else p.Initial) |
377 end | 382 end |
378 in | 383 in |
379 recur doc acc p.Initial | 384 recur doc acc p.Initial |
380 end | 385 end |