changeset 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 a40cf9c8d615
children f641cfcd5153
files src/ur/feed.ur
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/ur/feed.ur	Tue Jul 19 09:29:34 2011 -0400
+++ b/src/ur/feed.ur	Sun Jul 24 03:36:07 2011 -0430
@@ -373,6 +373,11 @@
                                               recur xml acc (if cont then state else p.Initial))
                                    | Some (data, cont) =>
                                      acc <- f data acc;
+                                     state <- return (if ended then
+                                                          Option.get p.Initial (p.ExitTag state)
+                                                      else
+                                                          state);
+                                                   
                                      recur xml acc (if cont then state else p.Initial)
                         end
     in