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,6 +1,6 @@
 (define url-rule
-  (cons 'url 
-	(lambda (tag uri . maybe-text) 
+  `(url *preorder*
+	. ,(lambda (tag uri . maybe-text) 
 	     (surflet-sxml->low-level-sxml
 	      `(a (@ (href ,uri))
 		  ,(if (null? maybe-text)