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

Add sxml->string/internal

This commit is contained in:
interp 2003-03-13 11:32:16 +00:00
parent d1c7b4e9d3
commit e151572459
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,6 +32,9 @@
(pre-post-order sxml-tree rules) (pre-post-order sxml-tree rules)
port)))) port))))
(define (sxml->string/internal sxml-tree rules)
(list (sxml->string sxml-tree rules)))
;; Predicate for attributes in sxml. ;; Predicate for attributes in sxml.
(define (sxml-attribute? thing) (define (sxml-attribute? thing)
(and (pair? thing) (and (pair? thing)