From 97c0da8c71cb5b625a74a1c83c24e926026b0145 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Mon, 14 Apr 2003 08:40:45 +0000
Subject: [PATCH] Make url-rul *preorder*. This removes a bug that escaped the
 HTML string twice (e.g. '<' or '&').

---
 scheme/httpd/surflets/surflet-sxml.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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