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

SXML-ATTRIBUTE-ATTRIBUTES returns a list instead of #f

This commit is contained in:
interp 2003-04-16 12:20:57 +00:00
parent e3652a93b2
commit 6d64530779
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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.