syndication: get it working with doublec's wacky atom feed

diff --git a/basis/syndication/syndication.factor b/basis/syndication/syndication.factor
index e30cd6826c7f0dd29df44ae50d5ecbba6fcee05d..fe31a49265d425ca2f4d9e7592b0292a329a44c4 100644 (file)
--- a/basis/syndication/syndication.factor
+++ b/basis/syndication/syndication.factor
@@ -70,7 +70,8 @@ TUPLE: entry title url description date ;
     tri ;
 
 : atom-entry-link ( tag -- url/f )
-    "link" tags-named [ "rel" attr "alternate" = ] find nip
+    "link" tags-named
+    [ "rel" attr { f "alternate" } member? ] find nip
     dup [ "href" attr >url ] when ;
 
 : atom1.0-entry ( tag -- entry )