From 2ab93f703b9082489f337fd934ab32beca520350 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Tue, 15 Apr 2003 09:33:32 +0000
Subject: [PATCH] Add SXML-ATTRIBUTE-ATTRIBUTES function that discards the
 initial '@

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

diff --git a/scheme/httpd/surflets/sxml.scm b/scheme/httpd/surflets/sxml.scm
index 58277f8..79c8364 100644
--- a/scheme/httpd/surflets/sxml.scm
+++ b/scheme/httpd/surflets/sxml.scm
@@ -40,6 +40,11 @@
   (and (pair? thing)
        (eq? '@ (car thing))))
 
+;; 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)))
 
 ;; Default rule: Creates leading and trailing tag and encloses the
 ;; attributes.