From dcce51cc3f544c82f661328d77fb9b4cdfc836f1 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Thu, 13 Mar 2003 12:07:29 +0000
Subject: [PATCH] Let URL-RULE use SURFLET-SXML->LOW-LEVEL-SXML instead of
 writing own string list

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

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 "<a href=\"" uri "\">" 
-		(if (null? maybe-text)
+	  (surflet-sxml->low-level-sxml
+	   `(a (@ (href ,uri))
+	       ,(if (null? maybe-text)
 		    uri
-		    maybe-text)
-		"</a>"))))
+		    maybe-text))))))
 
 (define plain-html-rule
   `(plain-html