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

Make url-rul *preorder*. 

This removes a bug that escaped the HTML string twice (e.g. '<' or '&').
This commit is contained in:
interp 2003-04-14 08:40:45 +00:00
parent c48f952cc5
commit 97c0da8c71
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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