scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
interp 2003-04-15 09:33:32 +00:00
parent f8d7dfbeda
commit 2ab93f703b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/httpd/surflets/sxml.scm
View File

@ -40,6 +40,11 @@
(and (pair? thing) (and (pair? thing)
(eq? '@ (car 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 ;; Default rule: Creates leading and trailing tag and encloses the
;; attributes. ;; attributes.