html: fix over-encoding already encoded urls

diff --git a/basis/html/html.factor b/basis/html/html.factor
index 756e4a77413ded0975d4a7076fd4adad795b89c4..71a2fc689d6319c4ad5902846210901ad1dc0ef4 100644 (file)
--- a/basis/html/html.factor
+++ b/basis/html/html.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
 ! Slava Pestov.
 ! See https://factorcode.org/license.txt for BSD license.
-USING: accessors kernel xml.data xml.writer xml.syntax 
-urls.encoding ;
+USING: accessors kernel present urls urls.encoding xml.data
+xml.writer xml.syntax ;
 IN: html
 
 TUPLE: empty-prolog < prolog ;
@@ -25,7 +25,7 @@ M: empty-prolog write-xml drop ;
     [XML <span class="error"><-></span> XML] ;
 
 : simple-link ( xml url -- xml' )
-    url-encode swap [XML <a href=<->><-></a> XML] ;
+    >url present swap [XML <a href=<->><-></a> XML] ;
 
 : simple-image ( url -- xml )
-    url-encode [XML <img src=<-> /> XML] ;
+    >url present [XML <img src=<-> /> XML] ;