*** empty log message ***

2002-04-25 16:30:14 +00:00 · 2002-04-25 16:30:14 +00:00 · 74961f8bd4
parent de5c5dab30
commit 74961f8bd4
1 changed files with 1 additions and 1 deletions
--- a/uri.scm
+++ b/uri.scm
@ -170,7 +170,7 @@
 		 s)))    ; new length of escaped string
      (if (= nlen (string-length s)) s
 	  (let ((ns (make-string nlen))) 
-	    (string-fold-right
+	    (string-fold-left
 	     (lambda (c i)     ; replace each occurance of an
 			       ; character to escape with %ff where ff
 			       ; is the ascii-code in hexadecimal