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

View File

@ -43,8 +43,9 @@
;; Returns the attribute list after the initial '@. For our ;; Returns the attribute list after the initial '@. For our
;; convenience, it ignores values that are not sxml-attributes. ;; convenience, it ignores values that are not sxml-attributes.
(define (sxml-attribute-attributes thing) (define (sxml-attribute-attributes thing)
(and (sxml-attribute? thing) (if (sxml-attribute? thing)
(cdr 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.