Make url-rul *preorder*.

This removes a bug that escaped the HTML string twice (e.g. '<' or '&').
2003-04-14 08:40:45 +00:00 · 2003-04-14 08:40:45 +00:00 · 97c0da8c71
parent c48f952cc5
commit 97c0da8c71
1 changed files with 7 additions and 7 deletions
--- 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