From 6d64530779fc8729afad4498c93f4b0b43be6fa1 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Wed, 16 Apr 2003 12:20:57 +0000
Subject: [PATCH] SXML-ATTRIBUTE-ATTRIBUTES returns a list instead of #f

---
 scheme/httpd/surflets/sxml.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/surflets/sxml.scm b/scheme/httpd/surflets/sxml.scm
index 79c8364..e6a09e0 100644
--- a/scheme/httpd/surflets/sxml.scm
+++ b/scheme/httpd/surflets/sxml.scm
@@ -43,8 +43,9 @@
 ;; Returns the attribute list after the initial '@. For our
 ;; convenience, it ignores values that are not sxml-attributes.
 (define (sxml-attribute-attributes thing)
-  (and (sxml-attribute? thing)
-       (cdr thing)))
+  (if (sxml-attribute? thing)
+      (cdr thing)
+      '()))
 
 ;; Default rule: Creates leading and trailing tag and encloses the
 ;; attributes.