diff --git a/scheme/httpd/surflets/surflet-sxml.scm b/scheme/httpd/surflets/surflet-sxml.scm index c5ec417..3c26180 100644 --- a/scheme/httpd/surflets/surflet-sxml.scm +++ b/scheme/httpd/surflets/surflet-sxml.scm @@ -1,11 +1,11 @@ (define url-rule (cons 'url (lambda (tag uri . maybe-text) - (list "" - (if (null? maybe-text) + (surflet-sxml->low-level-sxml + `(a (@ (href ,uri)) + ,(if (null? maybe-text) uri - maybe-text) - "")))) + maybe-text)))))) (define plain-html-rule `(plain-html