Fix the Atom feed generator

diff --git a/basis/syndication/syndication-tests.factor b/basis/syndication/syndication-tests.factor
index b0bd5a2ff577c0088a93093a33f8c6c8f8958743..d8bf47c7d9261d65bac948e1c56d5cb82590da9b 100644 (file)
--- 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 407e09aab11dbd68c50ae0b6a10c087ae414b55e..27f709dd10e71f233569275a8fcfcefc46f5ed06 100644 (file)
--- 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
         <entry>
             <title type="html"><-></title>
-            <link href=<-> />
+            <link rel="alternate" href=<-> />
             <published><-></published>
             <content type="html"><-></content>
         </entry>
@@ -135,7 +135,7 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ;
     <XML
         <feed xmlns="http://www.w3.org/2005/Atom">
             <title><-></title>
-            <link href=<-> />
+            <link rel="alternate" href=<-> />
             <->
         </feed>
     XML> ;