summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsrc/guile/skribilo/reader/rss-2.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/guile/skribilo/reader/rss-2.scm b/src/guile/skribilo/reader/rss-2.scm
index aa393b9..8fe56c7 100755
--- a/src/guile/skribilo/reader/rss-2.scm
+++ b/src/guile/skribilo/reader/rss-2.scm
@@ -1,6 +1,6 @@
;;; rss-2.scm -- A reader for RSS 2.0 files.
;;;
-;;; Copyright 2008 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2008, 2011 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -208,8 +208,9 @@
(and (pair? x) (loop x)))
body)))
- ((or ((and (or 'tr 'th 'td 'tc) tag) ('@ _ ...) body ...)
- ((and (or 'tr 'th 'td 'tc) tag) body ...))
+ ;; XXX: Putting the second pattern first yields to match failures.
+ ((or ((and (or 'tr 'th 'td 'tc) tag) body ...)
+ ((and (or 'tr 'th 'td 'tc) tag) ('@ _ ...) body ...))
`(,tag ,@(map loop body)))
(('*ENTITY* "additional" "nbsp")