Add SXML-ATTRIBUTE-ATTRIBUTES function that discards the initial '@

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.