scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

This commit is contained in:
interp 2002-04-25 16:30:14 +00:00
parent de5c5dab30
commit 74961f8bd4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
uri.scm
View File

@ -170,7 +170,7 @@
s))) ; new length of escaped string s))) ; new length of escaped string
(if (= nlen (string-length s)) s (if (= nlen (string-length s)) s
(let ((ns (make-string nlen))) (let ((ns (make-string nlen)))
(string-fold-right (string-fold-left
(lambda (c i) ; replace each occurance of an (lambda (c i) ; replace each occurance of an
; character to escape with %ff where ff ; character to escape with %ff where ff
; is the ascii-code in hexadecimal ; is the ascii-code in hexadecimal