RSS module slightly more flexible

diff --git a/extra/rss/rss.factor b/extra/rss/rss.factor
index 40395e720fe7ea959cbdb106351058f594988961..f9d7067e589f7d2890c87e0ffb5ed2d07651f43c 100644 (file)
--- a/extra/rss/rss.factor
+++ b/extra/rss/rss.factor
@@ -93,7 +93,7 @@ C: <entry> entry
         dup entry-title "title" simple-tag,
         "link" over entry-link "href" associate contained*,
         dup entry-pub-date "published" simple-tag,
-        entry-description "content" simple-tag,
+        entry-description [ "content" simple-tag, ] when*
     ] tag, ;
 
 : feed>xml ( feed -- xml )