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

View File

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