suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 3a203e3261479ee6da0c476048e2be4f94cb641a
This commit is contained in:
Robby Findler 2004-08-18 00:37:50 +00:00
parent e133e96938
commit 28b393f742
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/net/url-unit.ss
View File

@ -22,7 +22,7 @@
(unit/sig net:url^
(import net:tcp^)
(define-struct (url-exception exn) ())
(define-struct (url-exception exn:fail) ())
(define current-proxy-servers
(make-parameter null (lambda (v)
@ -52,11 +52,12 @@
(define url-error
(lambda (fmt . args)
(let ((s (apply format fmt (map (lambda (arg)
(if (url? arg)
(url->string arg)
arg))
args))))
(let ((s (string->immutable-string
(apply format fmt (map (lambda (arg)
(if (url? arg)
(url->string arg)
arg))
args)))))
(raise (make-url-exception s (current-continuation-marks))))))
(define-struct url (scheme user host port path query fragment))