diff --git a/basis/syndication/syndication-tests.factor b/basis/syndication/syndication-tests.factor index b0bd5a2ff5..d8bf47c7d9 100644 --- a/basis/syndication/syndication-tests.factor +++ b/basis/syndication/syndication-tests.factor @@ -40,4 +40,4 @@ IN: syndication.tests } } } ] [ "vocab:syndication/test/atom.xml" load-news-file ] unit-test -[ ] [ "vocab:syndication/test/atom.xml" load-news-file feed>xml xml>string drop ] unit-test +[ t ] [ "vocab:syndication/test/atom.xml" load-news-file dup feed>xml xml>feed = ] unit-test diff --git a/basis/syndication/syndication.factor b/basis/syndication/syndication.factor index 407e09aab1..27f709dd10 100644 --- a/basis/syndication/syndication.factor +++ b/basis/syndication/syndication.factor @@ -80,7 +80,7 @@ TUPLE: entry title url description date ; [ children>string ] if >>description ] [ - { "published" "updated" "issued" "modified" } + { "published" "updated" "issued" "modified" } any-tag-named children>string try-parsing-timestamp >>date ] @@ -122,7 +122,7 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ; [XML <-> - /> + /> <-> <-> @@ -135,7 +135,7 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ; <-> - /> + /> <-> XML> ;