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

Let URL-RULE use SURFLET-SXML->LOW-LEVEL-SXML instead of writing own string list

This commit is contained in:
interp 2003-03-13 12:07:29 +00:00
parent 39066ac109
commit dcce51cc3f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/surflets/surflet-sxml.scm
View File

@ -1,11 +1,11 @@
(define url-rule (define url-rule
(cons 'url (cons 'url
(lambda (tag uri . maybe-text) (lambda (tag uri . maybe-text)
(list "<a href=\"" uri "\">" (surflet-sxml->low-level-sxml
(if (null? maybe-text) `(a (@ (href ,uri))
,(if (null? maybe-text)
uri uri
maybe-text) maybe-text))))))
"</a>"))))
(define plain-html-rule (define plain-html-rule
`(plain-html `(plain-html