diff --git a/basis/syndication/syndication.factor b/basis/syndication/syndication.factor index e30cd6826c..fe31a49265 100644 --- 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 )