diff --git a/scheme/httpd/surflets/surflet-sxml.scm b/scheme/httpd/surflets/surflet-sxml.scm index 597ede2..0ce413f 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) - (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